
TrainingTracking101.com


[dflip id=”27960″ ][/dflip]
Rational assessment of businesses. |
company is a cash-generating, industry-dominating, wealth-creating powerhouse — what we call a Rule Maker. |
Directions: |
We’ve identified 11 general attributes of Rule-Making companies. Part 1 covers five qualitative aspects of a business. For each of these, the scoring is simple — 1 point if the attribute is met, 0 points if it’s not. Part 2 covers six financial criteria. Since these are more objective, each is worth 2 points if met, 0 points if not. Altogether, that’s 17 possible points. Got it? If so, pick a company to analyze and let’s get started! |
*Note* Rule Maker analysis is primarily for companies with at least $1 Billion in annual sales. |
Part 1: Evaluating the Biz — Answer honestly! It’s either 100% yes, or else no. |
1) Dominant Brand — Is the company the standout category king within its industry? |
2) Repeat Purchases — Do customers return for purchase at least once a month? |
3) Convenience — Within its industry, is the company’s product/service accessibility and convenience the best? |
4) Expanding Possibilities — Can you answer “yes” to the following two questions? |
a) Do your friends know about and use the product/service? |
b) Is worldwide expansion believable for their stuff? |
5) Your Familiarity & Interest — Are you a user of the company’s products or at least very familiar with them? |
Part 2: Company Financials — Fill in the cells outlined in blue. The spreadsheet will crunch the numbers. |
*Important Note* — When evaluating quarterly (10-Q) results, use the year-to-date income statement data. |
For example, if a company is 3/4 of the way through its fiscal year, use the full 9 months of info. |
10Q Report |
quote.fool.com |
Investing in highly volatile bitcoins and other cryptocurrencies is risky business. These currencies are all electronic or virtual in nature, and thus have no physical presence. They don’t even have intrinsic value. However, no one can deny that right now these cryptocurrencies are extremely valuable and those who invested in the early days, and held on to their investments, are living the high life now as multi-millionaires, and even billionaires!
If you want to be like these wise investors sometime in the future, then follow these 4 investing strategies to increase your chances for success.
1 – Prepare For Volatility
It’s basically a given for cryptocurrencies that they are going to be extremely volatile. One minute the price is sitting at 5 digits, and the next it’s at 4 or even 3 digits! It’s absolutely unpredictable, and if you don’t take its volatility seriously, you could get in a lot of trouble. You could panic and sell off your crypto so you can minimize your loss.
However, if you’ve braced yourself for scenarios like this, then you’d probably just shut down your computer, or turn off your TV, and lie down and sleep off your doubts. Tomorrow is a different day, the price could go back up, and all will be fine with the world. Being prepared for volatility is tough, but it’s definitely doable.
2 – Proceed With Caution
Do your research before you start investing in bitcoins and other cryptocurrencies. When you’re dealing with hard-earned money, you don’t want to lose everything in one day. You’re investing to make a profit sometime in the future. Don’t go all in without studying what you’re putting your money into.
3 – Diversify Your Portfolio
Don’t put all your eggs in one basket, so to speak. Don’t just invest in bitcoins. If possible, invest in other cryptocurrencies as well as traditional assets like stocks, bonds, and mutual funds. At least if bitcoin prices drop, then you’re not going to be totally in the red. Your other investments will help keep you afloat.
4 – Store Your Virtual Coins In Cold Wallets
Investing is a long-term game, and it is not advisable to keep your cryptocurrencies in online wallets such as your exchange’s wallet, or even your mobile app wallet. Keep your private keys in cold wallets such as paper or hardware wallets since these aren’t connected to the Internet. You can keep small amounts in your online wallets, but the bulk of your investments should be offline.
After looking at the market for a while I
couldn’t find any trend that I like. Today, before market close I
decided to place 2 swing trades; $XELA and $AAOI.
Let’s see what happens tomorrow morning or during the day.
This
new strategy takes advantage of the low risk and bull trending stocks
and the end of the day. There still going to be after hour traders
reading the trends and potentially keep moving the stock higher.
In order to improve data quality and maximise its insight potential, the Forrester report identifies seven quality dimensions that marketers should align their data across for best results:
Hey HackerHipster, are you ready to sling shoot into that moving green SMA?
After hitting 52 week lowest point $UGAZ is readyt to boom back for winter. Winter is here.
The RSI is way oversold and the MACD is about to turn around to bullish. We are doing a red to green move here. I’m expecting to see at least $13 on $UGAZ in the next 2 weeks.
UPDATE wp_posts SET option_value = ‘http://gabifoodadventures.com’ WHERE option_value = ‘http://dagabifoodadventures.com’
UPDATE wp_posts SET guid = ‘http://gabifoodadventures.com’ WHERE guid = ‘http://dagabifoodadventures.com/’
Candlestick charts are a technical tool that pack data for multiple time frames into single price bars. This makes them more useful than traditional open-high, low-close bars (OHLC) or simple lines that connect the dots of closing prices. Candlesticks build patterns that predict price direction once completed. Proper color coding adds depth to this colorful technical tool, which dates back to 18th century Japanese rice traders.
Study these pattern to learn when to start looking at the potential resistance or support levels indicated by a retracement Fibonacci scale.
When in need to relax, the understanding on how your automous nervious system is works, is essential.
Many of us walk through this life following the rules of society, social distractions and capitalist expectations.
We are all inmerse in an ocean of noise. Those who learn how to slowly ballon up over the surface are the ones, that can see over the smogy noise.
The Turtle and the Hare
Deep into your body there is a system, an electrical system
Description
The Utilities Analyst will conduct data and impact analysis; participate in administrative research to guide decisions impacting policies, procedures, and customer enhancements; and support the financial planning and utility rate administration functions. Responsibilities will include conducting benchmark and financial impact analysis, assisting with the coordination of public hearings, maintaining financial forecasting models, and participating in various strategic planning projects.
Qualifications
Candidates must possess two years of experience (three years for Utilities Analyst II) in the in the areas of financial and economic analysis, financial forecasting, water and/or electric rate development, cost-benefit analysis, performance indicator development and tracking, or leading cross-divisional project teams. Experience need not be with a public utility or agency,
Candidates must have a Bachelor’s degree from an accredited college or university with major course work in finance, accounting, business administration, public administration, economics, quantitative science, or a related field. An equivalent combination of experience and education sufficient to perform the essential job functions and provide the required knowledge and abilities is qualifying.
Candidates must have knowledge of principles of financial planning analysis and statistical reporting; methods of calculating investment returns and risk assessment; research methods and report writing; principles of cost benefit analysis; benchmarking and performance measurement; management information systems; work flow analysis, software to manage and analyze data; complex spreadsheets and database applications; and pertinent federal, state, and local laws, rules, codes, and ordinances.
Candidates must demonstrate the ability to compile, organize, and analyze data; prepare complete and concise reports; employ creativity, logical thinking, and judgment in analyzing complex issues and developing sound recommendations; forecast and develop models that simulate complex financial activities; assist in and/or conduct electric and water studies related to cost of service, rate schedules, and cost-benefit analysis; effectively communicate and promote ideas to various stakeholders; effectively plan and direct special projects; operate with tact and diplomacy; make effective oral presentations; communicate clearly and concisely, both orally and in writing; make sound recommendations related to assigned projects; assist and/or develop performance indicators; maintain business process maps; operate effectively and independently with employees across APU divisions; assist with planning and/or coordinating multiple projects simultaneously; maintain confidentiality; assist and/or develop content for internal and external communication; and establish and maintain effective working relationships with those contacted in the course of work.
https://www.youtube.com/watch?v=mKN1CKuxuEQhttps://www.youtube.com/watch?v=VRBmmeE-290&list=WLhttps://www.youtube.com/watch?v=GXOUII4snZM&list=WL&index=2https://www.youtube.com/watch?v=pyGZxswo5Nw
Advanced Excel
Fundamental Statistics
Python Programming
Databases
Front-End Web Visualization • HTML • CSS • Bootstrap • Dashboarding • JavaScript Charting • D3.js • Geomapping with Leaflet.js
Business Intelligence Software • Tableau
Advanced Topics • Big Data Analytics with Hadoop • Machine Learning
It wasn’t my first time, I have done this before. This time was different. My heart fell almost to the floor. Crypto is falling.
Back in 2017 I was one of those newbies who invested in bitcoin during the 20k bullrun. It felt magical. The math behind percentages and group psychology completily got my curious mind.
Yes, earlier in 2018 I realized it was too late to learn about market cycles and stop loss. Almost a year later I learned about shorting and then I realized … we all behave like waves.
Are we really mini waves that materialized at this micro levels of existance compare to the universe? We are the children of a big bang after all.
$MBRX got some volume this morning after News were released. Noticing the chart was about to move, based on Volume, I decided to take a trade and made 42.84%.This Robinhood account will be my practice account which I plan to grow to a $1 million dollars.
(google map)
You built a WordPress website or someone built you a WordPress website.
1/3 of all (77,000,000) WordPress sites are outdated.
Are your plugins updated?
Is your WordPress site secure?
Does it comply with current HTTPS standards?
We provide FREE SSL security certificates.
Is your WordPress site connected to (FREE) Google analytics and Search console?
Do you know what your traffic is?
Complete monthly Word Press maintenance from $20 – no contracts – yes we do Woo Too!
mitch@superezsystems.com 773-848-0687
https://chicago.craigslist.org/chc/cps/d/chicago-wordpress-website-maintenance/6790377582.html
Do you have a lot of data, but can’t afford to hire someone to work with it? I am a recently trained data scientist looking to boost my resume. I will work with your data for free!
Some possible services I could provide:
– look through your data, clean it up, and put it into a useable format
– help you think through the types of questions you could address with your data
– analyze the data in order to answer those questions
– help you think about new data you might like to collect
– basically anything else relating to data!
Interested? Have questions? Let’s chat!
As a business owner who isn’t in retail, there is a traditional shutdown between Christmas and New Year and after a few days off you may be looking ahead to next year and thinking how you can grow the business and sales. In more austere times, people are asked to do more with the same resources (or less!).
So this week I have listed some great tools to help make marketing your business or service much easier for 2019.
Saving Time
These tools will help you get more productive so you can spend more time doing the things you love and less on the things you don’t
#1 Hootsuite
Hootsuite allows you to schedule most of your tweets in 1 go, meaning you create more time to engage and are less likely to skip tweeting the “evergreen “messages within your business.
#2 Buffer App
Much like Hootsuite, the team at Buffer allow you to create a schedule of what times you’d like to send tweets and Facebook posts (Although I don’t recommend it for Facebook – see #3 to find out why). It operates on a “send if anything is in the bucket” model. So if you load it with 20 stories, it will drip-feed them out until they run out.
#3 Facebook Scheduler
Most businesses are a little sporadic in their social media activity often having busts of ten minutes here and there to post things. The challenge is though that your audience isn’t always ready to receive when you want to post. Thankfully Facebook allows you to schedule your business page posts rather than send 3 out within 3 minutes. Facebook appears to actively penalise posts scheduled from elsewhere, so that’s why I recommend using the Facebook functionality.
Email Tools
#4 Zerobounce
Got an old list of customer email addresses but aren’t sure which ones are still usable. Mailing a high % of “bad” emails will hurt your deliverability. In steps Zerobounce, a great tool to clean up the data in under 1 hour. Just be sure you comply with all the other GDPR regs!
#5 Mailchimp & Aweber
Two for one here. Creating a central hub for your marketing and updates to your customers couldn’t be easier. With both free and paid plans, these companies make it very easy to create professional templates to wow your customers
Google Tools
#6 Google Correlate
Think of correlate as a thesaurus. Type in a search term that you think your customers are looking for and it will suggest additional terms too that you may not have thought of.
#7 Google Image Search
Found an image but want to make sure you have the rights to use it? Copy the image in to Google Image search and it will usually show you the original source so you can make sure you comply with any and all legal requirements!
#8 Google trends
A great way to keep on top of the latest trends and also review whether there is historic seasonality on products or search terms. This helps with workload and inventory planning! It is also great for finding new things to talk about with your customers.
Online Marketing
#9 Canva
Canva allows you to create wonderful looking graphics for promoting your business and offers all year round. Most people can cope with the free version, although there is a small charge for certain premium functions.
#10 Survey monkey
Why not let your existing customers help you shape the new product range or product offering. You can use the free or premium versions to survey their thoughts. It’s always worth considering offering a small incentive for people who enter and participate. Whether it’s a gift card, discount or some other VIP service, it will increase participation rates.
#11 Marketing School Podcast
Struggling for time and possibly inspiration? In steps Neil Patel and Eric Siu with their 5 minute daily podcast on all things marketing. Everyone can make 5 minutes right? Whether it is in the car, on the bus or even walking to work. They are light hearted and full of great information from a team that is doing extremely well online!
#12 Ahrefs
The costliest of all the recommendations, but this allows businesses to find data on how to generate more customers online and get more visitors. Rather than recreating the wheel, you can review competitors or search terms and find out how easy (or not) it is to have your website perform far better that it does today!
Have you tried any of these? Got different recommendations? If so, comment below I’d love to read them
Finally, I’d like to wish you a very Happy New year! See you in 2019
Help with design, development or repair of your Microsoft Access database.
Some things about me:
– 15 years of experience as an independent consultant for Access development projects
– Many references.
– Masters degree in Biostatistics.
– Have taught business development at the Boulder Small Business Development Center.
I can wrap my mind around just about any project you might throw at me.
Let me know what I can do to help your business!
Currently accepting projects of any size. Will work via virtual office
or on-site (in the Denver/Boulder area). Discounted rate schedule for
non-profit organizations and green businesses.
Expertise in:
– understanding what you really want and providing it!
– developing new databases from beginning to end
– fixing your current MS Access database to run faster, more reliably, and fully featured
– building easy-to-use user interfaces
– creating dashboards to display your current key data points, at a glance
– incorporating intelligence into the flow and logic of your database
– utilization of extreme mathematical calculations
– training you to develop/use your own MS Access databases
– integrating MS Access databases with other databases, such as Quickbooks
Skilled at:
– all versions of MS Access, and conversion between versions
– VBA programming
– mathematics, statistics, business intelligence, data mining
– small business finance
– database design
– staying on target, on budget, on deadline
Optimizely is the world’s leader in customer experience optimization, allowing businesses to dramatically drive up the value of their digital products, commerce and campaigns through its best in class experimentation software platform. By replacing digital guesswork with evidence-based results, Optimizely enables product and marketing professionals to accelerate innovation, lower the risk of new features, and drive up the return on investment from digital by up to 10X. Over 26 of the Fortune 100 companies choose Optimizely to power their global digital experiences. Optimizely’s impressive customer list includes eBay, FOX, IBM, The New York Times and many more global enterprises.
Optimizely is the industry leader in web and mobile optimization and experimentation platform. We enable businesses to show the right thing to the right person at the right time by turning data into action. Optimizely is looking for mid to senior level Data Analyst who can provide analytical support and a strategic perspective to our internal partners throughout the organization by delivering valuable business insights to drive actions. As a data expert, you will define the key metrics by working with department stakeholders and model them in the unified business model layer of our analytical system to provide recommendations, and eventually help them drive business decisions to enhance the service to our customers. You have a strong technical and quantitative analysis background, and an exceptional ability to distill and communicate complex data.
What you and your team will be doing:
https://qualaroo.com/beginners-guide-to-cro
As the Digital Marketing Specialist at Lawgical you are highly organized, goal-oriented, deadline-driven and are meticulous with your attention to detail. The Lawgical marketing team is lean and agile, and in this role you recognize the need to roll up your sleeves to identify opportunities to maximize customer revenue/conversions and increase our brand awareness and loyalty. It’s important for you to be an in-house subject matter expert — understanding your customer’s and the industry trends — to effectively communicate to our potential customers.
While self-motivated and autonomous, you work (and communicate) closely with your marketing and sales colleagues to set goals and a roadmap to achieve them. Ultimately, this translates into delivering campaigns that are aligned with the company’s mission and priorities. You are revenue and results oriented and create content, emails, and marketing materials around expanding client base.
You have strong communication, design, and analytical skills that support your primary goal of creating digital campaigns that drive revenue growth (new customer acquisition, retention, cross-selling and upselling).
Responsibilities
* Manage email campaign calendar for up to 4 brands
* Create targeted email campaigns
* Develop graphic and content assets for email campaigns
* Create campaign landing pages
* Measure campaign results and effectiveness
* Distribution Optimization (determining optimal time, frequency, messaging, etc)
* Develop campaign ideas based off company analytics and results
* Identify audience and tailor content/campaigns around target customers
* Identify channels’ partners and content distribution opportunities
* Curate and manage email marketing lists and segments
* Coordinate campaigns with sales and marketing teams
* Create, update, and manage lead nurturing and drip campaigns
* Code responsive email templates in HTML and CSS
* Automate marketing tasks and processes
* Create, buy and track effectiveness of social media campaigns
* Maintain PPC ad campaigns
Experience and Skills
* 2+ years experience setting goals and developing a plan to achieve them
* 2+ years of experience with email marketing, lead nurturing, marketing automation, and marketing analytics
* 2+ years of experience with PPC advertising
* Experience with social media advertising
* Experience with email marketing tools (e.g., MailChimp, Campaign Monitor, etc)
* Experience with list management, targeting and segmentation
* Experience with A/B testing
* Strong written skills and experience with blogging
* Strong analytical skills
* Video editing a plus, but not required
* Experience with Zapier (or other automation tools) a plus
* Proficient with spreadsheet and graphics software
How to Apply
Please send an HTML email campaign to dms@lawgical.com promoting yourself as Lawgical’s next Digital Marketing Specialist.
Please include…
* a link to your resume
* salary requirements
* an original graphic you created
* your favorite gif of all time
* all other elements that make an email campaign effective
Learn more about us at…
https://www.lawgical.com
https://www.lawgical.com/careers
Checklist
To Starting a
Social Media Marketing Agency
Advertising Assistant
Our agency provides advertising and marketing services to agencies and brands. The owner handles most of the workload herself along with help from contractors. Speaking of contractors, the owner is currently in need of an assistant. She is looking for an experienced, intelligent, enthusiastic, dependable, and hard-working part-time contractor. This person will be responsible for assisting with digital advertising operations and behind-the-scenes account management for 2-3 clients.
Specifically, the Advertising Assistant’s tasks will include:
• Executing Facebook, Instagram, and LinkedIn campaigns
• Setting up marketing pixels in Google Tag Manager
• Setting up goal and event tracking in Google Analytics
• Setting up e-commerce tracking in Google Analytics
• Trafficking digital advertising campaigns
• Reporting on live digital campaigns
• Optimizing live digital campaigns
• Assisting with post-campaign performance presentations
• Assisting with task and project management
• Executing programmatic advertising campaigns
The owner will provide assistance on all of the above tasks.
Qualifications:
• Minimum two years Account Coordinator experience
• Minimum two years Facebook Business Manager experience
• Experience with other types of social media advertising a plus (Twitter, LinkedIn, etc.)
• Minimum one-year experience with Double Click Campaign Manager
• Six-months experience with DoubleClick Bid Manager
• One-year experience with Google Tag Manager
• Project management experience
• Strong proficiency in Excel and Power Point
• Working knowledge of important advertising metrics such as impressions, clicks, click-through rate, conversions and cost per conversion
Skills/Traits desired for this position are
• Assistant not afraid to pick up the phone and get things done
• Strong communication & listening skills
• Strategic/analytical thinking
• Problem solving
• Team player
• Self-driven & motivated
• Ability to jump in with little direction
• Organized
• Thirst for learning new things
A degree or concentration in advertising, marketing, communications or business administration preferred.
This position would start as a part-time contractor at 15 hours per week. Work from our home office in North Boulder for ½ a day 2 days per week is likely. Other work can be done from home.
Even Barack Obama is Doing it, Why Don’t You?
What: Meet Snobbish People from Boulder, CO and network and have fun
Where : Eben G. Fine Park \ Boulder, CO
When : Thursday, August 20, 2009 @ 5:00 pm
How : With a snobbish attitude of course. Bring your own snobbish mustache or get one with us. Name tags will be provided but not for your name but for your snobbish category.
BRING: Something to share with others as this is a potluck get together as well.
Earth No Flush Hour is starting in 2009 in Boulder, CO with thousands of homes and businesses no flushing or using water for one whole hour. This event is rapidly becoming a global sustainability movement with thousands of people across 35 countries participating. Global landmarks such as the Golden Gate Bridge in San Francisco, Rome?s Colosseum will stand in dryness, as symbols of hope for a cause that grows more urgent by the hour.
In 2009, at 8.30pm on May 2, we are asking people across the world to no use water and join together in creating the vital conversation about the future of our precious planet. Earth No Flush Hour is a message of hope and a message of action.
Everyone can make a difference. It?s as simple as no flushing or using water for an hour on May 2 @ 8:30 pm.
Join us for Earth No Flush Hour 2009.
Yes, we are in FaceBook. http://www.facebook.com/pages/Earth-No-Flush-Hour/66319266683?ref=ts Sponsored by Imodiuom
About Us:
QUALIFICATIONS
• Develop marketing strategies for projects, including company websites and social media along with plan and execute initiatives to reach the target audience through appropriate channels (social media, e-mail, TV etc.)
• Conduct market research to find answers about consumer requirements, habits and trends
• Brainstorm and develop ideas for creative marketing campaign results and project recommendations to senior management team
• Create and execute lead generation programs
• Knowledge of HTML, CSS and web development tools desired
• Analyze data to determine campaign efficiency
• Assist in outbound or inbound marketing activities by demonstrating expertise in various areas (content development and optimization, advertising, events planning etc.)
• Ensure creative marketing materials undergo regular review and adhere to brand guidelines
If you are interested in becoming part of a nationally expanding concept, with significant growth opportunities, we look forward to reviewing your resume. Please click the link to apply. Outside placement agencies and recruiters will not be considered. Please do not contact the above mentioned location.
Job Title: Associate Data Analyst
Location: Reston, VA
Start Date: January 2019
About This Role:
Comscore is seeking an Associate Data Analyst in Reston VA for the Custom Analytics team that will support the Financial Services vertical and organizational goals by providing industry knowledge and analytical thinking.Working as part of the Custom Analytics department within the company, this individual will work hands-on with the vast array of Comscore data assets to maintain data quality,analyze data trends, champion data driven insights on online consumer behavior, and expand current product offerings. Additionally, this individual will work within a creative environment to manipulate data, statistically analyze data and convey findings to stakeholders.
What you’ll do:
What you;ll need:
About Comscore
At Comscore, we’re pioneering the future of cross-platform media measurement, arming organizations with the insights they need to make decisions with confidence. Central to this aim are our people who work together to simplify the complex on behalf of our clients & partners. Though our roles and skills are varied, we’re united by our commitment to five underlying values: Integrity, Velocity, Accountability, Teamwork, and Servant Leadership. If you’re motivated by big challenges and interested in helping some of the largest and most important media properties and brands navigate the future of media, we’d love to hear from you.
Comscore (NASDAQ: SCOR) is a trusted partner for planning, transacting and evaluating media across platforms. With a data footprint that combines digital, linear TV, over-the-top and theatrical viewership intelligence with advanced audience insights, Comscore allows media buyers and sellers to quantify their multiscreen behavior and make business decisions with confidence. A proven leader in measuring digital and set-top box audiences and advertising at scale, Comscore is the industry’s emerging, third-party source for reliable and comprehensive cross-platform measurement. To learn more about Comscore, please visit Comscore.com.
EEO Statement: We are an equal employment opportunity employer. All qualified applicants will receive consideration for employment without regard to race, color, religion, national origin, sex, disability status, sexual orientation, gender identity, age, protected veteran status or any other characteristic protected by law.
To comply with federal law, Comscore participates in E-Verify. Successful candidates must pass the E-Verify process after hire.
At this time, Comscore will not sponsor a new applicant for employment authorization for this position
Apply NowDate posted 12/12/2018
Requisition Number: 231952BR
Location: United States – Connecticut – Stamford
Zip Code: 06901
Area of Interest: Operations/General, Telecommunications
Position Type: Full Time
JOB SUMMARY
Responsible for the
development and documentation of billing solutions to address business
needs. Understands business process and the systems utilized to
implement business process to achieve Company goals. Assists in the
completion of billing application projects at the corporate level.
Facilitates the gathering of data from various systems and sources to
perform analysis, design and business impact assessments for billing
related projects.
MAJOR DUTIES AND RESPONSIBILITIES
Actively
and consistently support all efforts to simplify and enhance the
customer experience and the needs of internal clients and projects.
Gathers, analyzes, refines, validates, documents and maintains complex systems requirements for requests related to billing systems and reporting needs.
Analyzes system interdependencies, system requirements, risks, and risk mitigations that could impact or be impacted by the delivery of new products, services, processes and/or support technologies including assessing and communicating impacts of systems changes and/or outages/risks to the business.
Defines, documents, implements, communicates and tracks related systems rules, policies and configurations.
Makes recommendations based on data for process improvement and strategic business decision making.
Assists in the implementation of billing software standards and processes.
Delivers on project commitments and assists team members to ensure timely project completion.
Understands policies, procedures, and practices for analysis of business performance and impact.
Develops communication documentation to support deployment of reporting and application solutions to end users.
Performs other duties as requested by supervisor
REQUIRED QUALIFICATIONS
Skills / Abilities and Knowledge
Ability to read, write, speak and understand English
Ability to communicate orally and in writing in a clear and straightforward manner
Ability to communicate with all levels of management and company personnel
Ability to handle multiple projects and tasks
Ability to make decisions and solve problems while working under pressure
Ability to prioritize and organize effectively
Ability to show judgment and initiative and to accomplish job duties
Ability to use personal computer and software applications (i.e. word processing, spreadsheet, etc.)
Ability to work independently
Ability to work with others to resolve problems, handle requests or situations
Ability to perform detailed business analysis and design
Ability to effectively consult with department managers and leaders
Education
Bachelor’s degree in Information Technology or business related field, or equivalent experience
Related Work Experience
3 Years Overall general Systems and Applications Experience
2 Years Data collection and database design
2 Years Reporting Systems Experience
3 Years Project Management
2 Years Documentation and Design
PREFERRED QUALIFICATIONS
Skills/Abilities and Knowledge
Knowledge of business process re-engineering
Knowledge of cable television products and services
Knowledge of operating systems including NT, desktop productivity software and client/server system architecture
Knowledge of database/reporting systems (SQL, Oracle, .NET, Crystal, etc)
Knowledge of basic ETL concepts and systems (SSIS, Informatica)
Knowledge of Structured Query Language (TSQL, PLSQL)
Knowledge of SQL Server Reporting Services
WORKING CONDITIONS
Office environment
The Spectrum brands (including Spectrum Networks, Spectrum Enterprise and Spectrum Reach) are powered and innovated by Charter Communications. Charter Communications reaffirms its commitment to providing equal opportunities for employment and advancement to qualified employees and applicants. Individuals will be considered for positions for which they meet the minimum qualifications and are able to perform without regard to race, color, gender, age, religion, disability, national origin, veteran status, sexual orientation, gender identity, or any other basis protected by federal, state or local laws.
Date: Dec 12, 2018
Location: White Plains, NY; Louisville, , NY, US
Company: DANONE
USO – Danone Foods, Inc, a subsidiary of Danone, is looking forMaster Data Analyst in United States (US) for White Plains, NY; Louisville, CO
Danone is a global food company holding top positions in healthy food
through its four businesses: Fresh Dairy Products, Early Life
Nutrition, Waters, and Medical Nutrition. Its mission, bringing health
through food to as many people as possible, embodies commitment to human
progress and business success. It gives meaning to the work of our
100,000 Danoners worldwide on an everyday basis.
For passionate people looking for autonomy and exciting career opportunities, Danone truly has something special inside.
The Master Data Analyst will be responsible for creation and maintenance of the Material, Vendor and customer Master Data for all of the business units within Danone North America. The Master Data Analyst will be responsible for monitoring Raw Materials, packaging materials, finish goods, vendor and customer master data with the purpose of improving data quality and timing. It will act as a liaison between the different business functions and our 3rd party data management team.
ESSENTIAL JOB FUNCTION
Standardization
• Standardize data convention across multiple business units; including
creation and maintenance of processes, finding and implemening the use
of common tools
Master Data Maintenance and Business Analysis
• Analyze and Propose master data creation process improvement and identify, troubleshoot, and correct issues
• Provide guidance for master data maintenance to cross functional teams responsible for entry of key data
• Support the Master Data Manager with the day to day material, vendor,
customer creation and pricing maintenance and ongoing maintenance for
all areas
• Support the finance team during budget period with data reporting and data uploads
• Utilize analytical skills to improve master data oversight
Product Lifecycle
• Continuous improvement to our product lifecycle process for finish
product, raw and packaging materials Vendors as well as customer Master
• Drive the Material inactivation process by running report and keep up to date all material master data inactivation within SAP
• Work closely with material planning team and supply planning team to
clean up and update material master data for discontinue materials in
coordination with the BOM team as well
EDUCATION AND EXPERIENCE REQUIREMENTS
Any equivalent combination of education and experience, which provides
the applicant with the knowledge, skills, and abilities required to
perform the job, will be considered.
Education:
• Bachelors degree required, with degree in Information Systems or Supply Chain preferred
Experience:
• Minimum of 2 year of experience working with SAP master data required
• Demonstrated analytical competency
• Experience using mass maintenance tools (like Winshuttle) preferred
• Experience Using Orsoft Workflow tool a nice to have
COMPETENCIES
• Customer Focus – solicits and uses feedback for continuous improvement. Strives for quality and excellence.
• Accountability – takes a no excuses approach to making things happen. Takes responsibility for own actions and results.
• Teamwork – Actively assists to move the team toward the completion of goals
• Communication Skills – Effectively expresses ideas and thoughts verbally and in written form.
• Collaboration – Establishes collaborative relationships to achieve objective
(DEFUN C:VSNAP (/)
; Sept. 25,97. By V.Mendez
; This function centers an object between two parallel lines.
(SETVAR “CMDECHO” 0)
(SETQ SelObj (ENTSEL “\nSelect Object : “))
(SETQ BPoint (GETPOINT “\nBase Point : “))
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(COMMAND “OSNAP” “NONE”)
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(COND
((AND (= X1 X2) (= Y1 Y2)) (SETQ MidPoint (LIST XObj YObj ZMid)))
((AND (= X1 X2) (= Z1 Z2)) (SETQ MidPoint (LIST XObj YMid ZObj)))
((AND (= Y1 Y2) (= Z1 Z2)) (SETQ MidPoint (LIST XMid YObj ZObj)))
)
(COMMAND “MOVE” SelObj “” BPoint MidPoint)
(SETVAR “CMDECHO” 1)
)
(Defun FC (Func N Xo dx)
(
(Setq LP ‘())
(Setq Int (/ dx N)
(Setq x (-Xo Int))
(Repeat (+ N 1)
(Setq x (+x Int))
(Setq y (FuncA x))
(Setq LPP (List x y))
(Setq LP (Cons LPP LP))
)
)
)
(Defun FuncA (V)
(* V V)
)
(Defun DrawF (ListP)
(Setq LPG ListP)
(While ((Lenght LPG) >= 2)
(Setq P1 (Car LPG))
(Setq P2 (Cadr LPG))
(Command “Line” P1 P2)
(Setq LPG (Cdr LPG))
)
)
; If an error (such as CTRL-C) occurs
; while this command is active…
(defun at_err (st)
(if (and (/= st “Function cancelled”) (/= st “quit / exit abort”))
(princ (strcat “\nError: ” st))
);end if
;Restore modified modes
(setvar “regenmode” 1)
(setvar “cmdecho” 1)
(if (= (type rtfile) ‘FILE)
(close rtfile)
);end if
(setq rtfile nil)
; Restore old *error* handler
(setq *error* olderr)
(princ)
);end defun
;This function disconnect all variables inside itself.
(defun DiscVar ()
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
);end defun
(defun C:BB ()
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 2 bb)))
(setq name (strcat “Block Name : ” name))
(alert name)
(princ)
);end defun
(defun c:CC()
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 8 bb)))
(setq name (strcat “Entity Layer : ” name))
(alert name)
(princ)
)
(defun C:BM (/ a a1 a2 nam ins bk1)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
(command “explode” a )
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(command “move” a2 “” a2 pause)
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:BE ( ) ;/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(command “erase” a2 “”)
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(setvar “regenmode” 1)
(princ)
);end defun
(defun C:bda (/ a a1 a2 bm bk1 inf nam ins )
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;PUNTOFINALDATA
;ERASE ENTITIES
(command “ddatte” a2 )
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:ba (/ blo a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ssget))
(setq blo (entsel))
(setq inf(entget(car blo)))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
(command “explode” blo)
(setq bk1 (ssget “p”))
(command “block” nam “y” ins bk1 a “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bs (/ a a1 a2 bk1 inf nam ins )
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(setq p1 (getpoint))
(setq p2 (getcorner p1))
(SETQ A(ssget “c” p1 p2))
(setq b (entget(ssname a 0)))
(setq nam(cdr(assoc 2 b)))
(setq ins(cdr(assoc 10 b)))
(setq capa (cdr(assoc 8 b)))
(command “explode” a)
(setq bk1 (ssget “p”))
;stretch ENTITIES
(command “stretch” “c” p1 p2 “” p2 pause)
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bop (/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(command “copy” a2 “” a2 pause)
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bco (/ a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a)
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(command “change” a2 “” “p” “lt” “continuous” “”)
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bhi (/ a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(command “change” a2 “” “p” “lt” “hidden” “”)
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “”)
(setvar “regenmode” 1)
(princ)
);end defun
(DEFUN C:bcl (/ a a1 a2 nam ins bk1)
;; VARS SETTINGSq
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;; Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;; FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;; ERASE ENTITIES
(command “change” a2 “” “p” “c” 8 “”)
;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:b8 (/ a a1 a2 nam ins bk1)
;; VARS SETTINGSq
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;; Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;; FUTURE LOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa(cdr(assoc 8 inf)))
;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;; ERASE ENTITIES
(command “change” a2 “” “p” “c” 8 “”)
;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:TKI (/ ) ;a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;ENTITIES SELECTION
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))
;EXPLODE MODULE
(command “explode” a )
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))) )
(IF (= “ITEMTAG” BLO)
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(IF (= “RECTRAG” BLO)
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
;VARS SETTINGS
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
;Seleccion de entidades
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
;FUTURE BLOCK INFORMATION
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))
;AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))) )
(IF (OR (= “PTAGM” BLO)(= “ETAGM” BLO)(= “EPTAGM” BLO)(= “ERITAG” BLO)(= “PRITAG” BLO)(= “ELLIPPLM” BLO)(= “ELLIPTAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
;MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:BO (/ bb name)
(setq bb(entget(car(entsel))))
(setq name (cdr(assoc 2 bb)))
(setq name (strcat “d:\\MCD_PR\\SOFTDESK\\” name “.DWG”))
(command “save” “”)
(command “open” name)
(princ)
)
(DEFUN C:TCI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))
;; AQUI VA EL MODULO DE EXPLODE
(command “explode” a )
(setq bk1 (ssget “p”))
;; ERASE ENTITIES
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))
(IF (OR (= “3NOTE” BLO)(= “2NOTE” BLO)
(= “1NOTE” BLO)(= “4NOTE” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
;; MAKE BLOCK MODIFIED
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:TCD (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ A2 (car(cdr a)))
(setq Inf (entget A1))
(setq Nam(cdr(Assoc 2 Inf)))
(setq Ins(cdr(Assoc 10 Inf)))
(setq Capa2(cdr(Assoc 8 Inf)))
(command “explode” a)
(setq Bk1 (ssget “p”))
(setq Nooo 0)
(repeat (sslength Bk1)
(setq Capa (ssname Bk1 Nooo)
Asso (cdr(assoc 8(entget Capa)))
Blo (cdr(assoc 2(entget Capa)))
Loc (cdr(assoc 10(entget Capa)))
Ref (cdr(assoc 0(entget Capa)))
);setq end
(if (OR (= “3NOTE” BLO)(= “2NOTE” BLO)(= “1NOTE” BLO)(= “4NOTE” BLO))
(COMMAND “SCALE” CAPA “” LOC (/ 1 1.6))
);end if
(setq nooo(+ nooo 1))
);repeat
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
);End_Defun
(DEFUN C:bbn (/ n p1 n1 n2 a co al1 cp cp2 t)
; Copia un bloque con nombre diferente
(setq n (entsel))
(setq p1 (car(cdr n)))
(command “copy” n “” p1 pause)
(setq n1(cdr(assoc 2(entget(car n)))))
(setq n2 (strcat (substr n1 1 7) “*”))
(setq a(ssget “x”(list(cons 0 “INSERT”) (cons 2 N2))))
(setq co (sslength a))
(setq al1 (strcat “TIENES ” (ITOA CO) ” BLOQUES.”))
(setq cp (ssget “l”))
(setq cp2 (entget(ssname cp 0)))
(command “explode” cp “”)
(setq t (ssget “p”))
(command “block” (strcat(substr n1 1 8)”_”(itoa co))
(cdr(assoc 10 cp2)) t “” )
(command “insert” (strcat(substr n1 1 8)”_”(itoa co))
(cdr(assoc 10 cp2)) “” “” “”)
(ALERT AL1)
(princ)
)
We are looking for a social media marketing superstar to help grow our business and become part of our team. You must have a friendly demeanour, detail-oriented, and enjoy bringing your creative ideas to life.
Job Duties Include:
*Create/manage/maintain social media content
* Promote our Brand, Missions and Services across social media channels
* Develop and execute a social media calendar
* Coordinate posts and messaging on key campaigns
* Shoot, snap, edit and post A LOT of pictures
* Directly interact with consumers by providing engaging content and information about our services and replying to customers who ask questions or post concerns on Facebook.
Qualifications Include:
* Must be highly self-motivated
* Must have a minimum of 2 years in social media marketing
* Experience with social media marketing tools like Hootsuite
* Experience with digital performance analytical tools (Google Analytics, etc.)
* Understanding of SEO, SEM, and PPC a HUGE plus!
* Proficiency with analytics tools and software (Facebook Ads, Insights)
(defun c:tblin (/)
;Initialize counters.
(setq Row 0)
(setq Col 0)
;Change these variables to adjust row and columns.
(setq OffCol 2)
(setq OffRow 0.2)
(setq ColMax 9)
(setq eof 0)
(setq Filename (FileToRead))
(setq FileHandler (open Filename “r”))
(while (= eof 0)
(progn
(while (< Col (* OffCol ColMax))
(progn
(setq TextIn (read-line FileHandler))
(if (= TextIn “~”)
(setq eof 1)
;Else
(progn
(setq Col (+ Col OffCol))
(command “TEXT” (list Col Row 0.0) “0.08” “0” TextIn)
);End progn
);End if
);End progn
);wend
(setq Row (- Row OffRow))
(setq Col 0)
);End progn
);Wend
(close FileHandler)
(princ)
)
(defun FileToRead (/)
; Prompt for file to be inserted
(if (= 1 (getvar “FILEDIA”))
(setq FileToRead (getfiled “File to Read” “” “TXT” 12))
;Else
(progn
(\n princ “Set variable FILEDIA to 1 then try again.”)
(setq FileToRead nil)
);End progn
);End if
)
;;; Save modes
;;;
(defun MODES (a)
(setq MLST ‘())
(repeat (length a)
(setq MLST (append MLST (list (list (car a) (getvar (car a))))))
(setq a (cdr a))
)
;;; Restore modes
;;;
(defun MODER ()
(repeat (length MLST)
(setvar (caar MLST) (cadar MLST))
(setq MLST (cdr MLST))
)
)
;;; Ascii Text error handler
;;;
(defun at_err (st) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (and (/= st “Function cancelled”)
(/= st “quit / exit abort”)
)
(princ (strcat “\nError: ” st))
)
(moder) ; Restore modified modes
(if (= (type rtfile) ‘FILE)
(close rtfile)
)
(setq rtfile nil)
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
(defun asctxt (/)
(setq olderr *error* *error* at_err)
(modes ‘(“BLIPMODE” “CMDECHO” “HIGHLIGHT”))
; Prompt for file to be inserted
(while (null rtfile)
(if (null at_fnm)
(if (= 1 (getvar “FILEDIA”))
(setq rf (getfiled “File to Read” “” “” 12))
(progn
(initget 1)
(princ “\nFile to read (including extension): “)
(setq rf (getstring))
)
)
(if (= 1 (getvar “FILEDIA”))
(setq rf (getfiled “File to Read” at_fnm “” 12))
(progn
(princ “\nFile to read (including extension)/<“)
(princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (= rf nil) (exit))
(if (= rf 1)
(if (null at_fnm)
(progn
(initget 1)
(princ “\nFile to read (including extension): “)
(setq rf (getstring))
)
(progn
(princ “\nFile to read (including extension)/<“)
(princ (strcat at_fnm “>: “))
(setq rf (getstring))
)
)
)
(if (and (= rf “”) (/= nil at_fnm))
(setq rf at_fnm)
)
(setq rfa (findfile rf))
(if (= “~” rf)
(progn
(setq rfa nil)
(setq rtfile nil)
)
)
(if rfa
(progn
(setq at_fnm rfa)
(if (null (setq rtfile (open rfa “r”)))
(princ (strcat
“\n\tFile found, but couldn’t open ” at_fnm ” for reading. “))
)
)
(if (/= “~” rf)
(if (and (< 4 (strlen rf))
(/= (substr rf (- (strlen rf) 3) 1) “.”)
)
(princ “\nFile not found. Extension may be missing.”)
(princ “\nFile not found. “)
)
)
)
)
(setq cont T)
(if (= “Yes” (getkword “\nSet up columns?
(progn
(setq opt (append opt ‘(16)))
(initget (+ 1 2))
(setq cd (getdist pt “\nDistance between columns: “))
(initget (+ 1 2 4))
(setq nl (getint “\nNumber of lines per column: “))
)
)
)
)
(setvar “BLIPMODE” 0)
(setvar “HIGHLIGHT” 0)
(setvar “CMDECHO” 0)
(setq eof nil)
(setq s (repeat l1
(read-line rtfile)
))
(setq lc (1+ lc))
(1ltxt)
(while (null eof)
(if (= d “Auto”)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(progn
(if (= lc (1+ nl))
(1ltxt)
(progn
(if (member ‘1 opt)
(setq s (strcat “%%u” s “%%u”))
)
(if (member ‘2 opt)
(setq s (strcat “%%o” s “%%o”))
)
(if (member ‘4 opt)
(setq s (strcase s))
)
(if (member ‘8 opt)
(setq s (strcase s T))
)
(command “_.TEXT” “” s)
(setq c (1+ c))
(if (= c n)
(setq eof T)
)
)
)
)
(setq eof T)
)
)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(1ltxt)
(setq eof T)
)
)
)
)
(close rtfile)
(setq rtfile nil)
(moder) ; Restore modified modes
(setq *error* olderr) ; Restore old *error* handler
(princ)
)
;(defun c:at () (asctxt))
(defun c:asctext () (asctxt))
(princ “\n ASCTEXT loaded.”)
(princ)
(defun C:TBLIN ()
;;Select file using a dialog box.
(setq RpFileName
(getfiled “Select file to incorporate” “/acad/support/” “txt” 8)
)
;;Open the file.
(setq FileNum (open RpFileName “r”))
;;Test for an empty file.
(setq LineFile (read-line FileNum))
;;Getting data to Autocad.
(while (/= LineFile nil)
(setq LineFile (read-line FileNum)
(princ LineFile)
)
)
)
(defun C:LEGEND ()
(prompt “\nBuilding legend list…\n”)
;Set variable to get the first element of table.
(setq Frst T)
(setq Counter 0)
(setq CountBlk 0)
;Get all block names.
(while (setq Tbdata (tblnext “BLOCK” Frst))
(setq Bname (dxf 2 Tbdata))
;print all block names.
(if (/= Bname nil)
;Discard dimension blocks.
(if (/= “*” (substr Bname 1 1))
;Call function.
(FindTag Bname)
);end if
);end if
(setq Frst nil)
);while end
);end defun
(defun FindTag (InBlkName)
;debug line
;(princ (strcat InBlkName “\n”))
;Check for blocks in drawing.
(if (= InBlkName “ITEMTAG”)
(setq CountBlk (+ CountBlk 1))
;else
(progn
;Call function to get nested blocks.
(setq Blklist (blist InBlkName))
;Call function Show Elements.
(ShowElem Blklist)
);end progn
);end if
);end defun
(defun ShowElem (ElemList)
(foreach ChkEnt Elemlist
(progn
(setq DebugName (dxf 2 ChkEnt))
(if (/= DebugName nil)
(if (= DebugName “ITEMTAG”)
(progn
;Extract Itemtag’s text.
(setq TxtList (GetTagName ChkEnt))
;Print in file.
(CreateFile TxtList)
);end progn
);end if
);end if
);end progn
);end foreach
);end defun
;This function get a text inside a block with attributes.
;Once the ItemTag block has been found look at its sub-entities
;searching for an attrib entity with the data text.
(defun GetTagName (HeadEnt)
;Show head entity.
(setq HeadData (entget (dxf -1 HeadEnt)))
;Get from Head Entity data the first Sub-entity.
(setq PrimCode (entnext (dxf -1 HeadData)))
(setq PrimData (entget PrimCode))
(setq BlkText (dxf 1 PrimData))
(princ (strcat BlkText “\n”))
;Add itemtag text to list.
(setq TagTextList
(append TagTextList
(list BlkText)
);end append
);end setq
;Return a list with text.
TagTextList
);end defun
; DXF returns property of entered code.
(defun dxf (code elist)
(cdr (assoc code elist))
)
; BLIST returns a list of the block head and subentity data
; lists for the specified block name.
(defun blist (blname / tblist tdata ename)
(setq tblist (list (setq tdata (tblsearch “block” blname)))
;set ename to first sub-entity.
ename (dxf -2 tdata)
);end setq
(while
(progn
(setq tblist
(append tblist
(list (entget ename))
);end append
);end setq
(setq ename (entnext ename))
);end progn
);wend
;send back the list.
tblist
);end defun
(defun CreateFile (ListToWrite)
(princ (getvar “Dwgname”))
);end defun
;;; SHORCUTS BY V. MENDEZ
;;; SHORCUTS BY V. MENDEZ
;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)
;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)
;DDINSERT
(DEFUN C:DDI ()
(COMMAND “DDINSERT”))
;CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE”))
;COPY
(DEFUN C:CO ()
(COMMAND “COPY” “SI” “AUTO” PAUSE PAUSE))
; PEW [SET WIDTH OF A POLYLINE TO ZERO]
(DEFUN C:PEW ()
(COMMAND “PEDIT” PAUSE “W” “0” “”))
(DEFUN C:SCINS ()
(COMMAND “SCALE” “SI” “auto” PAUSE PAUSE “INS” PAUSE SF))
; EXTEND TO SELECTED OBJECTS BY AUTO ONLY TWO TIMES.
(DEFUN C:EXT ()
(COMMAND “EXTEND” “SI” “AUTO” PAUSE PAUSE PAUSE PAUSE “”))
; BREAK SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BR ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “INT”))
; BREAK at the selected poit SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BRA ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “@”))
; CHANGE LAYER, BUT MUST GIVE LAYER NAME.
(DEFUN C:CLA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA”))
; FILLET CROSSING
(DEFUN C:FC ()
(COMMAND “FILLET” “C” PAUSE PAUSE))
; MIRROR
(DEFUN C:MI ()
(COMMAND “MIRROR”))
; OFFSET
(DEFUN C:OF ()
(COMMAND “OFFSET”))
; STRETCH “CROSSING”
(DEFUN C:ST ()
(COMMAND “STRETCH” “C” PAUSE PAUSE))
; ZOOM WINDOW
(DEFUN C:ZW ()
(COMMAND “‘ZOOM” “W” PAUSE PAUSE))
; ZOOM PREVIOUS
(DEFUN C:ZP ()
(COMMAND “‘ZOOM” “P”))
; ZOOM EXTENTS
(DEFUN C:ZE ()
(COMMAND “ZOOM” “E”))
; ZOOM DYNAMIC
(DEFUN C:ZD ()
(COMMAND “‘ZOOM” “D”))
; CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE” “AUTO”))
; TRIM “SI” “AUTO”
(DEFUN C:TRA ()
(COMMAND “TRIM” “SI” “AUTO”))
; TRIM FENCE
(DEFUN C:TRF ()
(COMMAND “TRIM” “AUTO” PAUSE PAUSE “” “F” ))
; EXTEND
(DEFUN C:EXT ()
(COMMAND “EXTEND” ))
; EXPLODE
(DEFUN C:EX ()
(COMMAND “EXPLODE” ))
; MOVE
(DEFUN C:MO ()
(COMMAND “MOVE” “AUTO”))
; ROTATE
(DEFUN C:RO ()
(COMMAND “ROTATE” “AUTO”))
;;; LISP ROUTINES
(DEFUN C:VSNAP (/)
; Sept. 25,97. By V.Mendez (c) r.1.0
; This function centers an object between two parallel lines.
(SETVAR “CMDECHO” 0)
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “CEN,MID,END”)
(SETQ SelObj (ENTSEL “\nSelect Object [cen,mid,end] : “)
BPoint (GETPOINT “\nBase Point [cen,mid,end] : “)
)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(IF (AND (= X1 X2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST X1 YMid 0)) )
(IF (AND (= Y1 Y2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST XMid Y1 0)) )
(COMMAND “OSNAP” “NONE”)
(SETVAR “CMDECHO” 1)
)
(DEFUN C:RECT (/ p1 p2)
(setvar “cmdecho” 0)
(if (and
(setq p1 (getpoint “\nFirst corner: “))
(setq p2 (getcorner p1 “\nOther corner: “))
)
(if A_LINE
(command “.line” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
(command “.pline” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
)
)
(princ)
)
(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))
(command “explode” a )
(setq bk1 (ssget “p”))
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))
(IF (OR
(= “PTAGM” BLO)(= “ETAGM” BLO)
(= “EPTAGM” BLO)
(= “ERITAG” BLO)(= “PRITAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
)
; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)
; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)
; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)
; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)
; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)
;DDA FOR DDATTE ATTRIBUTE EDIT DIALOG
(DEFUN C:DA ()
(COMMAND “DDATTE”)
)
;DDE FOR DDEDIT TEXT EDITING DIALOG
(DEFUN C:DDE ()
(COMMAND “DDEDIT”)
)
;DDL FOR DDLMODES LAYER DIALOG
(DEFUN C:DDL ()
(COMMAND “DDLMODES”))
;SCA SCALE FACTOR FOR CENTER
(DEFUN C:SCEN ()
(COMMAND “SCALE” “SI” “AUTO” PAUSE PAUSE “CEN” PAUSE SF)
)
; DIMENSION HORIZONTAL
(DEFUN C:DMH()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “HOR” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)
; DIMENSION VERTICAL
(DEFUN C:DMV()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “VER” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)
;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.
(gc)
(vmon)
(princ “\nPlease wait- loading.\n”)
(DEFUN C:DOOR (/ HP1 HP2 DWIDTH SP1 SP2 C-LAY BOX LINE1 LINE2)
(SETVAR “CMDECHO” 0)
(SETVAR “COORDS” 2)
(SETVAR “OSMODE” 256)
(SETQ HP1 (GETPOINT “\nHinge pt: “)
HP1 (OSNAP HP1 “NEAR”)
SP1 (GETPOINT HP1 “\nSwing pt: “)
SP1 (OSNAP SP1 “NEAR”)
DWIDTH (DISTANCE HP1 SP1)
C-LAY (GETVAR “CLAYER”)
BOX (SSGET “C” (LIST (- (CAR HP1) 12.0) (- (CADR HP1) 12.0))
(LIST (+ (CAR HP1) 12.0) (+ (CADR HP1) 12.0))))
(IF (AND BOX (SETQ LINE1 (ENTGET (SSNAME (SSGET HP1) 0))))
(PROGN (SSDEL (CDR (ASSOC -1 LINE1)) BOX) ;; remove first line from box
(FOREACH ENT (SS2ELIST BOX)
(IF (OR (/= (CDR (ASSOC 8 ENT))
(CDR (ASSOC 8 LINE1)))
(/= (CDR (ASSOC 0 ENT)) “LINE”)
(NOT (PARALLEL ENT LINE1)))
(SSDEL (CDR (ASSOC -1 ENT)) BOX)))
(SETVAR “OSMODE” 0)
(IF (> (SSLENGTH BOX) 0) ;; look in the box
(PROGN (SETQ LINE2 (ENTGET (SSNAME BOX 0))
HP2 (INTERS (CDR (ASSOC 10 LINE2))
(CDR (ASSOC 11 LINE2))
HP1
(POLAR HP1 (IF (> PI (ANGLE HP1 SP1))
(- (ANGLE HP1 SP1) (/ PI 2.0))
(+ (ANGLE HP1 SP1) (/ PI 2.0)))
(DISTANCE HP1 SP1)) nil))
(COMMAND “LAYER” “S” (CDR (ASSOC 8 LINE1)) “”)
(SETQ SP2 (POLAR HP2 (ANGLE HP1 SP1) DWIDTH)
P5 (POLAR HP1 (ANGLE HP2 HP1) DWIDTH))
(COMMAND “BREAK” HP1 SP1)
(COMMAND “BREAK” HP2 SP2)
(COMMAND “LINE” HP1 HP2 “”)
(COMMAND “LINE” SP1 SP2 “”)
(COMMAND “LINE” HP1 P5 “”)
(COMMAND “ARC” SP1 “E” P5 “D” (ATOF (ANGTOS (ANGLE HP2 HP1) 0 4)))
(COMMAND “LAYER” “S” C-LAY “”)))))
(PRINC))
;; convert a selection set to a list of entity lists
(DEFUN SS2ELIST (SS / ENTLIST COUNTER)
(SETQ COUNTER 0)
(REPEAT (SSLENGTH SS)
(PROGN (SETQ ENTLIST (CONS (ENTGET (SSNAME SS COUNTER)) ENTLIST))
(SETQ COUNTER (1+ COUNTER)))) ENTLIST)
;; takes 2 e-lists as arguments
(DEFUN PARALLEL (L1 L2)
(OR (~= (ANGLE (CDR (ASSOC 10 L1)) (CDR (ASSOC 11 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0)) ;; 1 rad tolerance
(~= (ANGLE (CDR (ASSOC 11 L1)) (CDR (ASSOC 10 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0))))
(DEFUN ~= (ACT_VAL TEST_VAL TOL) ;;fuzzy equality
(AND (<= ACT_VAL (+ TEST_VAL TOL))
(>= ACT_VAL (- TEST_VAL TOL))))
;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)
;;; SHORCUTS BY V. MENDEZ
;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)
;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)
;DDINSERT
(DEFUN C:DDI ()
(COMMAND “DDINSERT”))
;CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE”))
;COPY
(DEFUN C:CO ()
(COMMAND “COPY” “SI” “AUTO” PAUSE PAUSE))
; PEW [SET WIDTH OF A POLYLINE TO ZERO]
(DEFUN C:PEW ()
(COMMAND “PEDIT” PAUSE “W” “0” “”))
(DEFUN C:SCINS ()
(COMMAND “SCALE” “SI” “auto” PAUSE PAUSE “INS” PAUSE SF))
; EXTEND TO SELECTED OBJECTS BY AUTO ONLY TWO TIMES.
(DEFUN C:EXT ()
(COMMAND “EXTEND” “SI” “AUTO” PAUSE PAUSE PAUSE PAUSE “”))
; BREAK SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BR ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “INT”))
; BREAK at the selected poit SELECTED OBJECT AT INTERSECTION.
(DEFUN C:BRA ()
(COMMAND “BREAK” PAUSE “F” “INT” PAUSE “@”))
; CHANGE LAYER, BUT MUST GIVE LAYER NAME.
(DEFUN C:CLA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA”))
; FILLET CROSSING
(DEFUN C:FC ()
(COMMAND “FILLET” “C” PAUSE PAUSE))
; MIRROR
(DEFUN C:MI ()
(COMMAND “MIRROR”))
; OFFSET
(DEFUN C:OF ()
(COMMAND “OFFSET”))
; STRETCH “CROSSING”
(DEFUN C:ST ()
(COMMAND “STRETCH” “C” PAUSE PAUSE))
; ZOOM WINDOW
(DEFUN C:ZW ()
(COMMAND “‘ZOOM” “W” PAUSE PAUSE))
; ZOOM PREVIOUS
(DEFUN C:ZP ()
(COMMAND “‘ZOOM” “P”))
; ZOOM EXTENTS
(DEFUN C:ZE ()
(COMMAND “ZOOM” “E”))
; ZOOM DYNAMIC
(DEFUN C:ZD ()
(COMMAND “‘ZOOM” “D”))
; CHANGE
(DEFUN C:CH ()
(COMMAND “CHANGE” “AUTO”))
; TRIM “SI” “AUTO”
(DEFUN C:TRA ()
(COMMAND “TRIM” “SI” “AUTO”))
; TRIM FENCE
(DEFUN C:TRF ()
(COMMAND “TRIM” “AUTO” PAUSE PAUSE “” “F” ))
; EXTEND
(DEFUN C:EXT ()
(COMMAND “EXTEND” ))
; EXPLODE
(DEFUN C:EX ()
(COMMAND “EXPLODE” ))
; MOVE
(DEFUN C:MO ()
(COMMAND “MOVE” “AUTO”))
; ROTATE
(DEFUN C:RO ()
(COMMAND “ROTATE” “AUTO”))
;;; LISP ROUTINES
(DEFUN C:VSNAP (/)
; Sept. 25,97. By V.Mendez (c) r.1.0
; This function centers an object between two parallel lines.
(SETVAR “CMDECHO” 0)
(COMMAND “OSNAP” “NONE”)
(COMMAND “OSNAP” “CEN,MID,END”)
(SETQ SelObj (ENTSEL “\nSelect Object [cen,mid,end] : “)
BPoint (GETPOINT “\nBase Point [cen,mid,end] : “)
)
(COMMAND “OSNAP” “NEA”)
(SETQ Point1 (GETPOINT “\nFirst Point [nearest] : “))
(COMMAND “OSNAP” “PER”)
(SETQ Point2 (GETPOINT Point1 “\nSecond Point [Perpendicular] : “))
(SETQ X1 (CAR Point1)
Y1 (CADR Point1)
Z1 (CADDR Point1)
)
(SETQ X2 (CAR Point2)
Y2 (CADR Point2)
Z2 (CADDR Point2)
)
(SETQ XMid (/ (+ X2 X1) 2)
YMid (/ (+ Y2 Y1) 2)
ZMid (/ (+ Z2 Z1) 2)
)
(SETQ XObj (CAR BPoint)
YObj (CADR BPoint)
ZObj (CADDR BPoint)
)
(IF (AND (= X1 X2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST X1 YMid 0)) )
(IF (AND (= Y1 Y2) (= Z1 Z2)) (COMMAND “MOVE” SelObj “” BPoint (LIST XMid Y1 0)) )
(COMMAND “OSNAP” “NONE”)
(SETVAR “CMDECHO” 1)
)
(DEFUN C:RECT (/ p1 p2)
(setvar “cmdecho” 0)
(if (and
(setq p1 (getpoint “\nFirst corner: “))
(setq p2 (getcorner p1 “\nOther corner: “))
)
(if A_LINE
(command “.line” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
(command “.pline” p1
(list (car p1) (cadr p2) (caddr p1))
(list (car p2) (cadr p2) (caddr p1))
(list (car p2) (cadr p1) (caddr p1)) “c”
)
)
)
(princ)
)
(DEFUN C:TEI (/ ) ;a a1 a2 nam ins bk1)
(setvar “regenmode” 0)
(setvar “cmdecho” 0)
(SETQ A(ENTSEL))
(SETQ A1(CAR A))
(SETQ a2 (car(cdr a)))
(setq inf (entget a1))
(setq nam(cdr(assoc 2 inf)))
(setq ins(cdr(assoc 10 inf)))
(setq capa2(cdr(assoc 8 inf)))
(command “explode” a )
(setq bk1 (ssget “p”))
(setq nooo 0)
(repeat (sslength bk1)
(setq capa(ssname bk1 nooo))
(setq asso(cdr(assoc 8(entget capa))))
(SETQ BLO(CDR(ASSOC 2(ENTGET CAPA))))
(setq loc(cdr(assoc 10(entget capa))))
(setq ref(cdr(assoc 0(entget CAPA))))
(IF (OR
(= “PTAGM” BLO)(= “ETAGM” BLO)
(= “EPTAGM” BLO)
(= “ERITAG” BLO)(= “PRITAG” BLO))
(COMMAND “SCALE” CAPA “” LOC “1.6”)
)
(setq nooo(+ nooo 1))
);repeat
(command “block” nam “y” ins bk1 “”)
(command “insert” nam ins “” “” “”)
(command “change” “l” “” “p” “la” capa2 “” )
(setvar “regenmode” 1)
(princ)
)
; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)
; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)
; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)
; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)
; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)
;DDA FOR DDATTE ATTRIBUTE EDIT DIALOG
(DEFUN C:DA ()
(COMMAND “DDATTE”)
)
;DDE FOR DDEDIT TEXT EDITING DIALOG
(DEFUN C:DDE ()
(COMMAND “DDEDIT”)
)
;DDL FOR DDLMODES LAYER DIALOG
(DEFUN C:DDL ()
(COMMAND “DDLMODES”))
;SCA SCALE FACTOR FOR CENTER
(DEFUN C:SCEN ()
(COMMAND “SCALE” “SI” “AUTO” PAUSE PAUSE “CEN” PAUSE SF)
)
; DIMENSION HORIZONTAL
(DEFUN C:DMH()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “HOR” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)
; DIMENSION VERTICAL
(DEFUN C:DMV()
(COMMAND “OSNAP” “END,INT,CEN,NODE”)
(COMMAND “DIM” “VER” PAUSE PAUSE PAUSE “” “EXIT”)
(COMMAND “OSNAP” “NONE”)
)
;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.
(gc)
(vmon)
(princ “\nPlease wait- loading.\n”)
(DEFUN C:DOOR (/ HP1 HP2 DWIDTH SP1 SP2 C-LAY BOX LINE1 LINE2)
(SETVAR “CMDECHO” 0)
(SETVAR “COORDS” 2)
(SETVAR “OSMODE” 256)
(SETQ HP1 (GETPOINT “\nHinge pt: “)
HP1 (OSNAP HP1 “NEAR”)
SP1 (GETPOINT HP1 “\nSwing pt: “)
SP1 (OSNAP SP1 “NEAR”)
DWIDTH (DISTANCE HP1 SP1)
C-LAY (GETVAR “CLAYER”)
BOX (SSGET “C” (LIST (- (CAR HP1) 12.0) (- (CADR HP1) 12.0))
(LIST (+ (CAR HP1) 12.0) (+ (CADR HP1) 12.0))))
(IF (AND BOX (SETQ LINE1 (ENTGET (SSNAME (SSGET HP1) 0))))
(PROGN (SSDEL (CDR (ASSOC -1 LINE1)) BOX) ;; remove first line from box
(FOREACH ENT (SS2ELIST BOX)
(IF (OR (/= (CDR (ASSOC 8 ENT))
(CDR (ASSOC 8 LINE1)))
(/= (CDR (ASSOC 0 ENT)) “LINE”)
(NOT (PARALLEL ENT LINE1)))
(SSDEL (CDR (ASSOC -1 ENT)) BOX)))
(SETVAR “OSMODE” 0)
(IF (> (SSLENGTH BOX) 0) ;; look in the box
(PROGN (SETQ LINE2 (ENTGET (SSNAME BOX 0))
HP2 (INTERS (CDR (ASSOC 10 LINE2))
(CDR (ASSOC 11 LINE2))
HP1
(POLAR HP1 (IF (> PI (ANGLE HP1 SP1))
(- (ANGLE HP1 SP1) (/ PI 2.0))
(+ (ANGLE HP1 SP1) (/ PI 2.0)))
(DISTANCE HP1 SP1)) nil))
(COMMAND “LAYER” “S” (CDR (ASSOC 8 LINE1)) “”)
(SETQ SP2 (POLAR HP2 (ANGLE HP1 SP1) DWIDTH)
P5 (POLAR HP1 (ANGLE HP2 HP1) DWIDTH))
(COMMAND “BREAK” HP1 SP1)
(COMMAND “BREAK” HP2 SP2)
(COMMAND “LINE” HP1 HP2 “”)
(COMMAND “LINE” SP1 SP2 “”)
(COMMAND “LINE” HP1 P5 “”)
(COMMAND “ARC” SP1 “E” P5 “D” (ATOF (ANGTOS (ANGLE HP2 HP1) 0 4)))
(COMMAND “LAYER” “S” C-LAY “”)))))
(PRINC))
;; convert a selection set to a list of entity lists
(DEFUN SS2ELIST (SS / ENTLIST COUNTER)
(SETQ COUNTER 0)
(REPEAT (SSLENGTH SS)
(PROGN (SETQ ENTLIST (CONS (ENTGET (SSNAME SS COUNTER)) ENTLIST))
(SETQ COUNTER (1+ COUNTER)))) ENTLIST)
;; takes 2 e-lists as arguments
(DEFUN PARALLEL (L1 L2)
(OR (~= (ANGLE (CDR (ASSOC 10 L1)) (CDR (ASSOC 11 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0)) ;; 1 rad tolerance
(~= (ANGLE (CDR (ASSOC 11 L1)) (CDR (ASSOC 10 L1)))
(ANGLE (CDR (ASSOC 10 L2)) (CDR (ASSOC 11 L2)))
(/ PI 180.0))))
(DEFUN ~= (ACT_VAL TEST_VAL TOL) ;;fuzzy equality
(AND (<= ACT_VAL (+ TEST_VAL TOL))
(>= ACT_VAL (- TEST_VAL TOL))))
;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)
Technical analysis is a careful analysis of coin reports and charts. Although with a few close similarities with other forms of trading, cryptocurrency’s unique characteristics have helped made several tools invaluable in studying coin behaviour, predicting future movement to take proper trading steps.
In this article, you would learn about more advanced methods employed in the technical analysis of cryptocurrencies, e.g. Bitcoin. Each of these methods has striking characteristics, and readers are advised to study them carefully.
The Japanese candlesticks are technical analysis tools used to provide adequate trading data to investors. Since cryptocurrency trading occurs on exchanges, there is a section that shows charts in the form of graphs, having different time frames from 1 hour, one day, one week, one month etc. When observed carefully, when zoomed in, two types of candlesticks are seen that make up the chart. They are red and green candlesticks. The red candlestick is used to illustrate a decline in price while the green candlestick is used to show an increase in price.
Even though cryptocurrencies are entirely different from other traditional assets, similarities exist between them in the way they are charted coupled with the open, high, low & close (OHLC) of trading. The OHLC is identified in the image below.
Research shows that five favourite candlestick patterns provide useful direction for traders. These candlesticks work within price ranges in predicting the next movement of the trade either increase or decrease in value. The most accurate patterns are divided into two namely reversals and continuations. Reversals are patterns that predict a downtrend in price while continuations is a pattern that predicts an uptrend in price from its present price.
A trend can either be bullish or bearish. A pattern is said to be bullish when it is in the direction of an upward trend while it is said to be bearish when it is in the direction of a downward trend. The five popular candlesticks are namely The Hammer, The Piercing Line, The Bullish Engulfing Pattern, The Morning Star and the Three Soldiers.
The Hammer shows a bullish pattern in a reverse order in which the asset nears a downtrend. Its opposite is Hanging Man.
This principle is a form of technical analysis that employs the study of market psychology, identifying the 24hr High and Low prices and use these factors in making market decisions. Every trader that use this form of technical analysis believes that the crypto market is influenced by market psychology using fundamental analysis. Success when using Elliot wave can
https://sumo.com/stories/shopify-competitor-research?ref=em-se-110718
Google maps SEO
video
Craving Crypto EP 48 “How to easily swing trade crypto (working strategy)”
Outline
Welcome to the “Craving Crypto Podcast! Hit that like & subscribe”
Market overview
Topic = “How to easily swing trade crypto (working strategy)”
Some Q+A from the comment section
Example -> https://www.tradingview.com/x/n9CNIyui
CHARTS AND LINKS BELOW 🙂
BINANCE SIGNUP! -> https://www.binance.com/?ref=15193962
COINCAP CHART -> https://www.tradingview.com/x/40dOAruF
Coinigy signup! -> https://www.coinigy.com/?r=e1f60de5
Bitmex signup -> https://www.bitmex.com/register/e655oo
BTC : 1DmQZJzu4LYQuS6WBkhnfeZX5bhuv3sHJW
VIP COURSE & SIGNALS -> https://highaltitudecrypto.io/shop/
Trade with tradingview charts! – https://www.coinsignals.trade/
DISCORD IS BACK FOLKS – https://discord.gg/rg2H36E
100k chart = https://www.tradingview.com/chart/BLX/c7gpVQSl-100-000-The-prophecy-is-true-highaltitudeinvesting/
BTC CHART 1 = https://www.tradingview.com/chart/BTCUSD/fgl8P6KT-Sick-of-the-correction-read-this/
BTC CHART 2 =
https://www.tradingview.com/x/W2NWlt1T/
BTC CHART 3 =
https://www.tradingview.com/x/RauXf08g
NASDAQ CHART 1 =
https://www.tradingview.com/x/zFOWuaaS/
Netflix and chill bubble
https://www.victoromark.com/social-media-marketing/
https://www.youtube.com/watch?time_continue=2&v=vbMQcjG_ILo
https://www.youtube.com/watch?v=owT_ILSMSt8
https://www.youtube.com/watch?v=O1utFYvMiZI
https://www.youtube.com/watch?v=bdx6DRflpyA
https://www.youtube.com/watch?v=b-1aPptrBf0
https://www.youtube.com/watch?v=GqlHbySigTk
https://www.youtube.com/watch?v=Nsajb6JUYk8
https://www.youtube.com/watch?v=ZmYYcuaMkYU
https://www.youtube.com/watch?v=E1QqEttdaoU
https://www.youtube.com/watch?v=UebQLXbTFus
https://www.youtube.com/watch?v=rwVBmnBvWK8
https://www.youtube.com/watch?v=FtRli0fjwR0&
https://www.youtube.com/watch?v=xNJZHiZKvCI
https://fpdl.vimeocdn.com/vimeo-prod-skyfire-std-us/01/4634/11/298170998/1136970361.mp4?token=1544147275-0x492cba16cad1e068b6ef850b069c92e6aade79df
Affiliate Marketing Angles: A Step-by-Step Guide to Standing Out
https://boulder.craigslist.org/web/6765424210.html
Hey there,
We are a mission-driven company delivering online relationship and self-development education.
You are someone who can do anything technical within a business like this…
– build landing pages
– create funnels
– hook up automations
– track with Google Analytics
– check every link is pointing where it should be
– create and monitor FB ads
You can be based anywhere so long as your wifi is strong and you can be contacted in realtime during daytime MT.
You are:
– responsive
– action-oriented
– a safe pair of hands
– detail-oriented – able to sign off on everything working perfectly
– problem-solver – if you don’t know how to do something, you can figure it out
– team-player – you know when to ask for support
– self-managing – you can manage and prioritize your own workflow
Knowledge of our software is desirable:
– Active Campaign
– Thrivecart
– Everwebinar
– Deadline Funnels
Contract is negotiable – ideally we would retain you monthly with a clear list of your deliverables and responsibilities.
To apply, please send an email which lets us know why you are a good fit. No standard cover letters please.
All best,
Jack and Clayton
https://www.youtube.com/watch?v=loN6gZ2LGiA
https://www.youtube.com/watch?v=P9x1HERu094
https://www.youtube.com/watch?v=8ljPVbosVa8
https://www.youtube.com/watch?v=bZOdi-KqXkY
https://www.youtube.com/watch?v=H75ddw02T6c
https://www.youtube.com/watch?v=wShli2d-R7M
https://www.youtube.com/watch?v=qMCqo3zaNBY
Shopify Print On Demand For Beginners | How to Find $10k Designs (HACKS)
https://www.youtube.com/watch?v=KXz5bp64QRY
Comprehensive List of Best T-Shirt Design Makers
Comprehensive List of Best T-Shirt Design Makers
Facebook Ads Strategy
/ = Narrow Down
ES = Engaged Shoppers
WW = Worldwide
Keep making new interest adset variations for as long as possible. Milk interests for as long as possible before starting lookalike audiences.
Start some retargeting audiences:
Adset 1 – Retargeting Audience VC- $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View
Adset 2 – Retargeting Audience AC – $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View
Adset 3 – Retargeting Audience VV – $3/day – Facebook & IG Feeds – 7 Day Click or 1 Day View
Adset 1 – Retargeting Audience VC- $3/day – Automatic Placement – 7 Day Click or 1 Day View
Lookalike audiences:
Break down your main campaign to see where the results are coming from. Pick the best country to start your lookalikes in. Milk that country for as long as possible before moving to a new one.
Keep cycling through adsets. Make new ones EVERY DAY. That is the key ?
ip for newbies (who have a few spare $$$ to try this ecom game)
After a couple months of trying the $5 test ads here and there. It’s not enough, try this instead:
I’m no pro by any means, and I certainly don’t have loads of money, I just test playing the odds.
Peace X
https://www.youtube.com/watch?v=zhoZbaRAIXU
https://www.youtube.com/watch?v=AGV611S26_w
https://www.youtube.com/watch?v=fIsL0TDpvCM&feature=youtu.be&utm_content=277303&utm_medium=Email&utm_name=Id&utm_source=Actionetics&utm_term=EmailCampaign
Google Shopping Campaigns
Retargetting Adwords
https://www.youtube.com/watch?v=tYvIFlGHUfc
Scaling
https://www.docdroid.net/FppekJe/scale-to-84k.pdf#page=4
Jungle Scout Criteria
Manufacturing Criteria
Analyze Competition
How to Find Manufacturers
Step 1: Go to Alibaba and find the search bar. Type in the name of a product that you are interested in selling. In this video I used vitamin pills as an example.
Step 2: Because a lot of suppliers have duplicate listings on Alibaba for the same item (because it increases their presence in the Alibaba search engine) you will need to filter the results by clicking on “browse by suppliers.”
Step 3: To filter the results down further, search by “Gold Suppliers.” Most suppliers will do this because it has become basically a prerequisite for having new buyers contact them. It doesn’t cost them much money to do this, so the results will only be filtered by a small amount.
Step 4 (OPTIONAL): If the list of suppliers is still too long, then click to filter the results by “assessed supplier.” This is only necessary in very popular niches where you have a large number of suppliers that you need to filter down to a manageable amount.
Step 5: Contact 10-20 suppliers at least. If you have time, then contact more. The more you contact, the better.
Here is the email template referenced in our video tutorial on how to find a supplier on Alibaba:
My name is [INSERT NAME] from [INSERT BUSINESS NAME].
Our company director asked me to contact your company about working together on a lucrative, long-term venture. We are a company that sells products related to [INSERT NICHE HERE] and we do over 2 million dollars in sales each year. We’re looking to expand our product range and create a profitable partnership between your company and ours.
We are planning to purchase [INSERT ITEM] to our product line. It would need to meet these specifications:
We have been researching different companies in China that manufacture [INSERT ITEM] and we think that your company could be a great supplier for it. We would like to get some more information and have a few questions that we would like you to please answer:
We would be very grateful if you would contact us with answers to the above questions as well as any additional policies that we may need to know. We would also like to discuss with you further about doing a sample order for the product.
We are hopeful that we can start a mutually beneficial relationship.
Please add me on Skype and talk to me, as this is my ideal form of communication: [INSERT ID] Alternatively you can email me back at this address: [INSERT ADDRESS]
Kind regards, [NAME]”
Here are some final tips to keep in mind when you are looking to find a supplier on Alibaba to manufacture your Amazon FBA private label products:
Tip #1 on how to find a supplier on Alibaba: Don’t judge the supplier/manufacture by their Alibaba response rate. The Alibaba response rate only takes into account how fast they respond within Alibaba’s email system, and it doesn’t take into account how fast they reply to personal emails. This is not a good indicator of how responsive they will be to private communication, which is all you should care about.
Tip #2 on how to find a supplier on Alibaba: Avoid manufacturers that try to vet your business. If a manufacturer comes back and starts asking questions about your business, clearly skeptical of the size of your company, it is best to move on. Manufacturers that do this will usually decline to work with you as they are only to work with other large companies, so you don’t want to waste your time.
Tip #3 on how to find a supplier on Alibaba: It is OK to work directly with a sales rep – if they offer you a better deal.
When you are looking to find a supplier on Alibaba, you’ll discover that sales reps often have inflated prices (due to commission cuts). But occasionally, a sales rep will have a better relationship with a factory and so are able to negotiate lower prices. They will also often have good english, making communication easier. Vet sales reps and treat them as equals during the process of picking and choosing the right supplier.
https://www.youtube.com/watch?v=6MhEPyWKE-U
https://wholesaleted.clickfunnels.com/optin24378563
[su_youtube url=”https://www.youtube.com/watch?v=YED92XqO8EI”]
https://www.youtube.com/watch?v=HO5RbV6KWSM
search for trademark
uspto.gov
search for trademark database
The new adwords is alive. Very pretty and easy to navigate
#boulder
Adwords Certified !!
These free and paid tools allow you to;
These tools do not use the Google API, especially because Google rendered their API virtually useless unless you have one of their old keys.
Tracking where you already rank does not alert you to potential areas of opportunity that you have not yet focused on, but it is easier to rank for keywords related to words you already rank well for than it is to rank for a whole new basket of keywords.
Related Categories
These are article directories with a high pagerank that accept articles in Spanish and have DoFollow enabled.
Hanging out with Bollywood Teacher and couple of friends at the Boulder Green Streets on a beautiful Sunday
Monday night, decided to go with “the Dudes” (the Dudes are my neighbors. “The Dude” and the “Other Dude”) To The Pub to listen to some great music.
Early in the morning, while going for a walk I ran into these beautiful deers.
Boulder is a great place to express yourself dancing on the street celebrating summer
After a nice afternoon drinking wine in my balcony I joined The Dude for a beer at the West End Tavern and some live music
I just got this smartphone and decided to film my first video about Kat.
She doesn’t thing is funny to be videotaped.
Did I say videotaped? That is so 1990’s.
End results of the campaign
– She’s a keeper if . . . she has at least one non?work-related hobby she’s passionate about. It means she knows how to have fun without a man and that she won’t need you constantly by her side.
– If you don’t try you won’t know what to fix.
This experiment made me realize to never take the obvious path whenever it comes to internet marketing. Why? Read about it below.
Trying to promote my children story website I decided to go to facebook and create a few ads. I figure the demographics are easy. I’ll target male or females with children 9 – 12 years old from spanish speaking country.
I started paying about $0.80 per click.
A few days later, I found myself with a few clicks and even less conversions.
Then, I found this facebook page;
Instead of using the continue paying the cost of marketing using the obvious path, I decided to target those pages that have already done the work of gathering potential customers.
This was incredible. The conversions were higher (not something incredible, but higher) for a reason. They have already “liked” similar pages, why no join my page as well.
By targeting users that have join pages instead of demographics the PPC went down to $0.35 cents.
Next time you want to market your blog or page, don’t take the obvious path, it is usually overpriced.
Yeahh !! That’s right, 4 million searches/month for a keyword at $0.05 per click for a product.
Do the math;
If the product costs $15.00 and I get $3.00 per sale that will be 12 million dollars. Assuming 1% conversion we are looking at $40,000 / month
Now, if the domain name is availble I should not have any problem going to the top of the google rankings and just wait for the cash to flow in.
Guess what? I got the domain name !
So I spend three days building a quick blog and a landing page with the orange button, product pictures and even video trailer of the movie product. Next step, I open my adwords account, build an ad or two and started pumping money into that campaign.
Day #1 – Zero Clicks and 45 impressions – What ??
Ok so I increased my bids to $0.50 per click. I figure google will at last try to increase my impressions so I can have a better chance and also pay them more.
Day #2 – 1 Click and 50 impressions – Are You Messing With Me?
Ok, so I decided to reaaaallllly go for it and go full blast CPC on Google’s Ass. So I went up to $3.00 per click
Day #3 – Zero clicks and 60 impressions
… arrrggg …. sleeping … looking at campaign … arrrggg …
Day #4 – I’m still baffle and recovering from Day #3. I put the campaign in pause and hit the forums.
I received a very eye opening response to my question about why am I not getting impressions …
I was missing the fact that when doing keyword research, if it is a phrase, google will give you the results of the match that combines the words from your phrase. This is known as broad match.
To actually find the right amount of searches done by humans I need to use exact match.
The result;
2,900 Global Monthly Searches !!
Now with the real number I can try again and see if I can get one sale. Stay tuned
I have been slapped by Google !!
Ouch !!
Last week Google decided to change their algorithm and my niche website when from position 31 to position 63 in one week.
Read more about this google algoritm update here;
http://www.smartpassiveincome.com/google-algorithm-impact-niche-sites/
All the effort that I’ve put together since the beginning of December 2010 went back about two months behind.
Frustration is not a pretty visitor but I always try to look at it naked. Everytime, I get frustration or nervius I imagine my audience naked. So, once again I traced back my steps and try to wear google’s shoes.
Where did I go wrong and why will google sent my site back?
The only tricky and kind of gray hat things I did was to buy backlinking services from fiverr.com . Duh !! That’s probably why google send me back.
To double check, I went to google results and notice the number 1 website was still number one. So, this google update did not affect that website.
I know that my content and structure is pretty tight in terms of SEO.
Backlinks. So far I have taken the lazy approach to this but that was about to change. I went and gather all the backlinks of my number one competitor using the following site;
http://www.iwebtool.com/backlink_checker
Then I contacted the first six website owners from the results table asking them to exchange links with me.
I started to notice a trend. These websites did not have a link to my number one google competitor. How and where is the link to number 1 site?
Most of these websites are blogger websites. This means you can create a comment with anchor text to your site easily. Most of these sites don’t have an approval process. So I prepare something like this;
<a href=” [my site name] “> [ anchor text] </a>
and added an honest comment to each one of these websites.
Ohh !! There is nothing to write about here. I’m actually sitting and waiting until the next google spider passes through my site. Hopefully it will help with the ranking.
For many years I tried to be a good engineer and come up with original groundbreaking ideas and approaches to do something. Guess what? Life is too short to reinvent the wheel. There is a reason why there are more than one person alive at a time. Don’t reinvent the wheel.
Facebook has its own self serve advertising platform. Trying to get customers to one of my website I decided to give it try.
First, I decided to use broad demographics and the ROI and CTR was terrible.
Then, while reading the twitter account of an expert online advertiser I found a link to facebook Pages Directory.
http://www.facebook.com/directory/pages/A
This was the trick. Instead of using a broad demographics I only targeted FB users that belong to an specific really targetted page. This increased my conversions and reduce the cost of customer adquisition.
Give it a try and let me know in the comments how did it turned out for you.
In my search to get better rankings for my dad’s website www.loscuentosinfantiles.com, I’ve been experimenting with different strategies.
Back in December 2010 I decided to post almost everyday to see if posting will improve my rankings. At the beginning of Decemeber the website was at position 126 under “cuentos infantiles“. A month later, google placed it in position 65.
Even though that is an incredible jump in ranking is not within the first page of google. The first position receives about 500,000 searches per month. Frequent posting did improve my ranking significantly but … there is always a but … I will continue later on this post explaining the but.
Basic back linking done for this site was mostly social media linking. I will go to five or six website and bookmark every post during that month after posting frequently. Twitter, facebook, stumbleupon, google buzz, delicious, etc. I didn’t see any big improvemnt. The site went from position 65 to 55. Then, I discovered fiverr.com
For five dollars I placed orders to add my site to different site aggregators and review sites. Also, I place orders to get links from .gov and .edu websotes. Yes !! for five dollars. This was amazing !!
At the end of february the site was in position 31 in google. I was impressed and also started to figure out this SEO thing.
But then, I decided to drop the ball.
Typical engineer, I made a silly decision that I can recover easily from; I decided not to do anything to the website for three weeks. Nothing, nada. Just leave the thing alone. Results ? (… drull roll) google set the site back to position 62 within three weeks.
AAhhhhh !!!
In summary I learned this about google SEO.
Not really cents but three take-homes about SEO
– If a guy named Roger can use; “Roger That” can I use “Victor That” as an affirmation
Everybody has seen the video of the super granny beating a few bad guys with her powerful purse.
This made me wonder what other super powers super granny might have.
A little less than a month ago I started my own SEO challenge. I decided then that I was going to sistematly rank my dad’s website to the first page of google. Since december 8, 2010 I have been looking a diferent how-to articles I can write about. This is, since it is a children’s story website most stories won’t have keywords the spiders can link to and categorize the site in under the right niche market.
Therefore, I started wirting and submiting articles to different blogs and article banks.
Between posting a new children story every other day and writing about how writing children’s stories will help your child improve in school I manage to get the website from page 12 to page 6.
This is an amazing progress since whenever it comes to websites SEO exposure is very important as it is search marketing and no interruption marketing.
The plan still to focus on ranking in the first page of google first. Then, I’m planning to do the following to establish my dad as an author and find a publishing house for his children book.
Zinc deficiency, therefore, has a direct impact on the carbohydrate metabolism of plants. For researchers developing biofuels energy sources, these systems and the role of zinc transporters in the conversion of energy into carbohydrates, are important objects of study. Developing a better understanding of zinc uptake can provide greater insight into these processes and will inform future discoveries.
There are several well-known factors that cause leaky gut such as the overuse of antibiotics, terrible food choices, persistent stress, overconsumption of alcohol, and many more. For many, it?s the overuse of alcohol and lousy diet plan that cause most of the problems for the digestive system.
Excessive usage of antibiotics can cause digestive dysbiosis and Candida. Pain drugs including pain killers, nuprin and similar drugs are the worst type of offenders. Another cause is from toxicity problems caused by environmental and food chemicals present in packaged foods. The point I want to make is that there is never just a single cause. There are numerous causes that should be considered.
If I hear 1000 POSITIVE comments from women, then I’ll change my opinion for SURE!!!
Me – 95% of the time women are very mood oriented. Whenever you call, tell (don’t ask) them you are doing something fun and she is invited. Most women don’t know what they want, they only know what they don’t want once the figure they don’t w…ant it. NUTS !! It is the nature of the beast. Remember they don’t have to go looking for guys or relationships. Those have been offered to them since they were in their teens. They had to develop a mechanism to screen you out (80/20 rule). Make an irresistible offer twice. If it doesn’t work out or she calls back, move on.
Drama with a side of fries
?- The Best Compliment – Today I received the best compliment a stranger has given me. I went to the UMC (CU cafeteria) today to buy a banana. The cashier (around 50 yo) told me; “It is $42.00” – I said; “sure charge it”. She then asked me if my parents get the bill and that’s why I don’t care. She tought I was 24 years old. LOL and thank you lady
1. Wonder about what’s on my mind
2. Share something with my co-worker
3. Tweeted; “Facebook is down”
4. Considered masturbation but then remembered I was at work
5. Discovered I have a window in my office and half a sandwich in a drawer. WFT ??
6. Check if Facebook was back on. Nope …. checked again …. nope !!
7. Pee
8. Went to hulu.com to watch the daily show. Steward, you are a funny mofo
9. Talked to a stranger and then discover we work in the same office. Just a few feet away from each other
10.? I actually did some work
Let’s celebrate. It’s alrright !! Woot Woot
28 Things Men Don’t Know about Real American Women
I think this the most important one; – Don’t try to figure out what will make us happy. We have been trying to get to the bottom of that mystery since the beginning of time and we have no clue either.
1. We Can Be Beer Snobs
No. 660: Don’t ask me why my Stella is in a wine glass. It’s not. Get your beers straight.
? Leigh Metherell, 22, Brooklyn
2. We Notice Sex Appeal, Too
No. 867: We think at least two of your friends are hot.
? Lauren Cusimano, 24, Phoenix
3. Our Daily Intake
No. 477: Men don’t know how much we really eat. Really.
? Natalia Angel, 22, London
4. Things That Make Us Go “Aww”
No. 908: Despite what we say, you holding a baby with complete confidence is an absolute aphrodisiac. Put the baby down and come touch me.
? Jennifer Trinh, 24, Irvine, California
5. We Like How You Get When You Explain Things
No. 220: We may say we enjoy watching Top Gear or the Lakers, but really more than anything we enjoy seeing how teaching us about Top Gear and the Lakers boosts your confidence.
? Courtney Harper, 23, Sherman Oaks, California
6. Fashion Failures Are Not Sexy
No. 47: Never. Wear. Neon.
? Carolynn Johnson, 26, Brooklyn
7. Subtle Can Be Very Sexy
No. 732: We’ll take nice forearms over six-pack abs any day.
? Jennie Engelhardt, 26, New York
8. Don’t Compare Us to Our Mothers
No. 22: Turning into our mothers is an inevitable fear we live with on a daily basis. Calling this to our attention at any point is a terrible idea. Just don’t do it.
? Maura E. McGill, 29, New York
9. Avoidance Tactics
No. 18: Sometimes we just complain about “that time of the month” so you’ll leave us alone.
? Kt McBratney, 27, Omaha
10. We Try To Let You Down Easily
No. 388: If you ask for our number a second time and we don’t give it to you, there’s a good chance we can’t remember the first number we gave you.
? Megan McDonnell, 30, Los Angeles
11. We Can’t Figure Ourselves Out, Either
No. 314: Don’t try to figure out what will make us happy. We have been trying to get to the bottom of that mystery since the beginning of time and we have no clue either.
? Michele Pepio, 35, Staten Island, New York
12. Make That a Double
No. 497: We like whiskey. And beer.
? Maura E. McGill, 29, New York
13. Being Metrosexual Is Fine, To A Point
No. 730: We find it creepy when your fingernails are longer and/or shinier than ours. You may get a manicure, but don’t admit it, and don’t enjoy it.
? Eva Meszaros, 25, Brooklyn
14. You Don’t Know What We’re Thinking
No. 642: Men see what women do, but they never know what women think while they are doing it.
?Verena Michaeler, 18, Brixen, Italy
15. Keep Telling Us We Look Hot
No. 616: If you stop with the compliments, then so might our efforts to look as hot as we did when we started dating. Why should we spend time and money that we don’t have in excess when our target audience doesn’t even notice?
? Haiyen Chin, 33, Brooklyn
16. Take a Hint
No. 644: If we offer you gum, it means we want to kiss you later. It’s not an insult. Just take the gum.
? Rhiannon Falzone, 26, Chicago
17. Don’t Be Too Obvious
No. 524: That low-cut top ? we wouldn’t wear it if we didn’t want you to look. Just be discrete about it.
? Whitney Webb, 22, Blacksburg, Virginia
18. Don’t Talk Behind Your Friends’ Backs
No. 85: Women hate when men talk badly about their friends. No matter how bad a friend they are, be supportive. Listen to the drama without being too opinionated. That what we do.
? Danielle Scotti, 23, Pittsburgh
read the top 10 at the original article at;
http://lifestyle.msn.com/relationships/staticslideshowes.aspx?cp-documentid=24375675
– “It is called a cockpit because smells like pits and cocks” – Tracy
Quilombo playing raggae cumbia at Oscar’s pub on a Saturday night.
Join Quilombo’s Facebook page to find out when is their next presentation
– Happy birthday little blue one. You are so alive and patience. You have always been the mediator between that crazy couple. SHE IS HOT, HE IS COLD. Sorry you have to put up with Venus and Mars.
Yum yum delicious empanada from Aji’s Restaurant
Boulder has the highest level of ?well-being? among 185 metro areas nationwide, and Colorado ranks No. 7 among states, a new report says.
read more at;
http://www.bizjournals.com/denver/stories/2010/02/15/daily5.html
From Marc & Angel Hack Life website
Sometimes asking the right questions is the answer.
I was watching the news yesterday and ran into this funny report. I wonder where is the video. Hilarious
The simple way to order good-quality, low-cost translation. Trusted worldwide.
After starving for 18 years due to IBS I have never drunk wine, black coffee and eaten Crème brûlée for dinner. Dinner at Dagabi Cucina was superb.
It is a new world of flavors and I might gain a few pounds. Yum !!
http://dagabicucina.com/
After starving for 18 years due to IBS I have never drunk wine, black coffee and eaten Cr?me br?l?e for dinner. Dinner at Dagabi Cucina was superb.
It is a new world of flavors and I might gain a few pounds. Yum !!
Celeste and Brit outside the D’Note on a salsa night
Happy New Year’s
A close up solo picture
Old Chicago has the key to happiness. Bunch of fried stuff covered with cheese. Yum !
Here it is. An old time ipod. Who knew there were going to weight a lot less and have a lot more songs. Technology is fantastic !
I always wonder how to do this.
How To Download Full Photo Album In Facebook
http://facebooklogin.net/tutorials/how-to-download-full-photo-album-in-facebook/
I have found this pretty cool web application by AT&T Labs. Try the audio generated by their Text-to-Speech demo link below.
Pretty Cool !!
AT&T Labs Natural Voices? Text-to-Speech Demo
– Sometimes people don’t know what they want. They only know what they don’t want. To know what they don’t want sometimes they have to try.
– You?re so sad maybe you should buy a happy meal.
I’m very confused by “Viva la Vida” by Cold Play. What’s this song about? king, a loser, a maniac, and why a Spanish title cheering life.
– I’m not an idiot, I’m just surrounded by beautiful women
Haven’t seen one of these in a while. I wonder if the amount of people getting sick has decreased once cellphones hit the market. That will be a very interesting research literature to do for those in medical school.
Me and Zohar decided to go to The Ritz in downtown Boulder looking for a Halloween costume. She found some weird coats and hat. It does not require much to get this girl dancing. She lovesss shopping and trying things on.
?Of course she found an afro wig and had to give it a try.
Crazy, lovely and unforgettable times
We became humans once we stopped monkeying around