trying to add code to standard lisps

trying to add code to standard lisps

thomas_huntFMPXR
Contributor Contributor
188 Views
3 Replies
Message 1 of 4

trying to add code to standard lisps

thomas_huntFMPXR
Contributor
Contributor
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
0 Likes
189 Views
3 Replies
Replies (3)
Message 2 of 4

Sea-Haven
Mentor
Mentor

Two problems

 

Where is c & v coming from ? 

 

(command "mleader" pt pause "(E) STRUCTURE" "ariel anno")

Unable to recognize command "ARIEL ANNO"

 

Did you not post before similar code and had suggestions made about how to write the correct code.

 

0 Likes
Message 3 of 4

paullimapa
Mentor
Mentor
0 Likes
Message 4 of 4

thomas_huntFMPXR
Contributor
Contributor

Yes but text size, text font, and annotative function still haven't shown in latest test. So far I just have the the command activation. also C and V I figured from the creating a list in mapcar function from a coworker suggestion the debug never picked it up.

0 Likes