I know how to do this in autocad with the delta positioning or what have you, but its kind of lengthly and kinda annoying when your using the characters like @. This one's pretty nice.; func dms final out put variable is strdeg; convert angles in degs to rads (defun dtr (a) (. pi (/ a 180.00)) ) (defun rtd (a) (/ (.
![Autocad lisp commands Autocad lisp commands](http://esurveying.net/images//Free_Lisps/09_Free_Lisp_EPOD.jpg)
Autodesk builds software that helps people imagine, design, and make a better world. Worldwide Sites. You have been detected as being from. Where applicable, you can see country-specific product information, offers, and pricing. Subscription includes AutoCAD, specialized toolsets, and apps. Name: ImportXYZ: Description: ImportXYZ is a no fuss, groovy little, AutoCAD LISP routine, for importing coordinates (X,Y,Z, locations) from practically any type of file. For example excel (.xls), CSV, and any delimited ascii file are all accepted. With ImportXYZ you can import a list of X,Y,Z points into an AutoCAD drawing and display any of the options listed below at the specified coordinates.
a 180.00) pi) ) (defun arl (/ ang ctrpt dist doc endpt ent half obj pick space ss1 ss2 stpt delta endang startang) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) space (if (= (getvar 'cvport') 1) (vla-get-paperspace doc) (vla-get-modelspace doc) ) ) (setq ss2 (ssget 'L' '((0. GETBEARING - subroutine to get bearing from DD.MMSS (defun GETBEARING (ABT /) (setq DMS (getreal (strcat ' nInput ' ABT ' DD.MMSS? '))) (if DMS (progn (setq TDMS (rtos DMS 2 4)) (cond ((= (substr TDMS 2 1) '.' ) (setq DD (atoi TDMS) MM (atoi (substr TDMS 3 2)) SS (atoi (substr TDMS 5 2))) ) ((= (substr TDMS 3 1) '.' ) (setq DD (atoi TDMS) MM (atoi (substr TDMS 4 2)) SS (atoi (substr TDMS 6 2))) ) ((= (substr TDMS 4 1) '.' ) (setq DD (atoi TDMS) MM (atoi (substr TDMS 5 2)) SS (atoi (substr TDMS 7 2))) ) ) (if (not MM) (setq MM 0.0) (setq MM (/ MM 60.0))) (if (not SS) (setq SS 0.0) (setq SS (/ SS 3600.0))) (setq BB (+ DD MM SS)) ) ) );BD = draw Pline from user point by Bearing & Distance (defun C:BD (setq OS (getvar 'OSMODE')) (setvar 'OSMODE' 0) (setq CHAINDIST nil) (if (or (not LCHAINDIST) (/= (type LCHAINDIST) 'REAL)) (setq CHAINDIST nil LCHAINDIST 33.0)) (setq P0 (getpoint ' nPick Starting Point for Bearing & Distance Pline? ')) (GETBEARING 'Bearing') (while DMS (setq QQ 0) (while (not (.
Welcome to our global community for discussing the Engineering & Land Surveying profession. RULES FOR POSTING is a forum that encourages the respectful exchange of land surveying knowledge. Before hitting submit, check that your content doesn't violate the rules below:. No self promotion or direct linking to items for sale. Don't be rude. Add value or move along.
No blog spam. NOTEWORTHY POSTS. SPONSORS Enjoy a reddit exclusive discount from some of our sponsors: Data Collector Repairs - Touchscreen Doc Offering quality screen/keypad replacements at a fraction of the cost. A Worldwide Repair Service - Visit us at: $10 discount code: REDDIT10 RELATED SUBREDDITS.