Learn AutoLISP for AutoCAD productivity
What is AutoLISP?
AutoLISP is a programming language designed specifically for use with the full version of AutoCAD (i.e. it does not work with AutoCAD LT). AutoLISP is one of a number of Application Programming Interfaces (APIs) built into AutoCAD but it is probably the easiest to use and therefore the most productive for the beginner. If you'd like to learn how to use AutoLISP to improve productivity, you're in the right place.
AfraLISP will help you get to grips with AutoLISP as quickly and easily as possible using some great tutorials for beginners. But the site also contains many intermediate and advanced AutoLISP tutorials to take you much further than the basics. In addition, AfraLISP provides DCL Tutorials (Dialog Control Language), Visual LISP tutorials, VBA Tutorials and AutoCAD customization tutorials in case you'd like to take your AutoLISP and AutoCAD programming to the next level.
Beginners Start Here
Popularity: 45.9 visits/day | Last visit: 3 mins ago
Popularity: 32.8 visits/day | Last visit: 2 mins ago
Popularity: 23.2 visits/day | Last visit: 2 mins ago
Popularity: 18.7 visits/day | Last visit: 32 mins ago
Popularity: 20.6 visits/day | Last visit: 2 hours ago
Popularity: 56.9 visits/day | Last visit: 6 mins ago
Popularity: 3.4 visits/day | Last visit: 2 hours ago
Popularity: 9.7 visits/day | Last visit: 10 mins ago
Popularity: 7.7 visits/day | Last visit: 2 hours ago
Popularity: 6.9 visits/day | Last visit: 2 hours ago
Popularity: 10.1 visits/day | Last visit: 9 mins ago
Popularity: 8.1 visits/day | Last visit: 30 mins ago
Tip of the Day
Breaking a Circle
Have you ever tried breaking a Circle into 2 separate parts using the Break command? It doesn't work does it? This routine allows you to separate a circle into two arcs by picking two points on the circle.
(defun c:bcirc (/ os pt1 pt2 a pt3) (setq os (getvar "osmode")) (setvar "osmode" 512) (setq pt1 (getpoint "\nFirst Break in Circle : ")) (setq pt2 (getpoint "\nSecond Break in Cricle : ")) (setq a (entget (ssname (ssget pt1) 0))) (setq pt3 (cdr (assoc 10 a))) (command "break" pt1 pt2) (command "arc" pt1 "e" pt2 pt3) (setvar "osmode" os) (princ) ) (princ)
Pick any 2 points on the a Circle. The circle will look the same, but it will be broken into two arcs.
Missed a Tip?
Did you miss yesterday's tip? Maybe you forgot to drop by or maybe you didn't visit over the weekend. If so, you can now see all the tips published during the past week.