![]() ![]() (if (= curve "R") (setq sweep (- sweep) offset (- offset))) + (setq sweep (/ length arcrad) offset (/ pi 2)) + (setq curve (strcase (getstring "Curving Left (CCW) or Right (CW) (L/R)? (setq length (getdist "Distance Along Curve: ")) \+ (if (= dir nil) (setq dir (getvar "LASTANGLE"))) + (setq dir (getangle pt1 "Starting Direction : ")) \+ (setq arcrad (getdist pt1 "Radius: ")) \+ (if (= pt1 nil) (setq pt1 (getvar "LASTPOINT"))) + (setq pt1 (getpoint "Starting Point : ")) \+ (setq angu (getvar "AUNITS")) (setvar "AUNITS" 3) + Watch for word wrap - all lines except the last in each group should end [Change the A-SITE-PROP layer name to whatever you use, or remove the Layer Segment, which is common in property boundaries. One gives you the default option of a tangent continuation of the last You would do for all but the first segment of a boundary layout. They both give you the default option of starting from the last point, as They could both be converted to defun's easily enough, I'm sure. ![]() ItĬalculates the center point and included angle from the input on radius, Length along the curve is part of what you know (typical for metes andīounds, but not one of AutoCAD's standard options for drawing an arc). TheĪrc one has an (L) in the heading, meaning that it draws an arc when the The Line one uses in which it's usually listed in property boundary descriptions. Here are the Screen Menu items I use for this. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |