Autocad lisp contour labels

broken image

(setq str (itoa(ade_odgetfield ent (ade_odgettables ent) 'ELEVATION' 0)))) ((ade_odgetfield ent (ade_odgettables ent) 'ELEVATION' 0) (setq str (itoa(ade_odgetfield ent (car(ade_odgettables ent)) 'ELEV' 0)))) ((ade_odgetfield ent (car(ade_odgettables ent)) 'ELEV' 0) (setq Rot (getangle pt '\nPick or Enter angle.' ) (setq pt (getpoint'\nSelect point on Contour Line: ') (setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (defun c:ContourAnnotate (/ mspace om osz e ent pt tblname Rot str mtextobj ent el) (load 'ContourAnnotate.lsp') ContourAnnotate LEON COUNTY PUBLIC WORKS SURVEY & R/W SECTION

broken image

 

PreviousNext
Cookie Use
We use cookies to improve browsing experience, security, and data collection. By accepting, you agree to the use of cookies for advertising and analytics. You can change your cookie settings at any time. Learn More
Accept all
Settings
Decline All
Cookie Settings
Necessary Cookies
These cookies enable core functionality such as security, network management, and accessibility. These cookies can’t be switched off.
Analytics Cookies
These cookies help us better understand how visitors interact with our website and help us discover errors.
Preferences Cookies
These cookies allow the website to remember choices you've made to provide enhanced functionality and personalization.
Save