Message 1 of 4
trying to add code to standard lisps
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
trying to add code to the lisp below for annotative text and text size will need to add it to each argrument or can make one argument to effect each command line?
LISP:
(defun c:ldr (/ pt)
;set variables
;setq
(setq pt1 (mapcar '- c v) pt2 (mapcar '+ c v))
;equipment pad 1
(setq pt (getpoint "\nEQUIPMENTPAD1"))
(command "mleader" pt pause "EQUIPMENT PAD 1")
;equipment pad 2
(setq pt (getpoint "\nEQUIPMENTPAD2"))
(command "mleader" pt pause "EQUIPMENT PAD 2")
;(e)structure
(setq pt (getpoint "\nSTRUCTURE"))
(command "mleader" pt pause "(E) STRUCTURE" "ariel anno")
);end defun