[编程交流] 如何创建lisp程序d

;LBLCOORD - plain label point w/coords 
(defun c:LBLCOORD 
()
 (setvar "CMDECHO" 0)
 (setq pt 1)
 (while (/= pt 
nil)
   (setq pt (getpoint "\n PICK POINT TO LABEL 
"))
   (if (/= pt nil)
     
(progn (setq n (strcat "N " (rtos (cadr 
pt))))
            
(setq e (strcat "E " (rtos (car 
pt))))
            
(setq tp (getpoint "\n PICK POINT FOR COORDINATES 
"))
            
(command "TEXT" tp "0" 
n)
            
(command "TEXT" "" e)
     )
   
)
 )
)
(princ)

(defun c:ne ()(setvar "osmode" 1)
(setq ne1 (getpoint"\nPick point..."))
(setvar "osmode" 0)
(if (/= ne1 nil)(go_ne)(princ"\nInvalid Location !"))
(princ)
)
(setq tx-ht 0.5)
(defun go_ne ()(setvar "luprec" 2)
(setq prmt (strcat "Enter TEXT HEIGHT<"(rtos tx-ht)">: "))
(princ prmt)
(setq x-ht (getreal))(if (= x-ht nil)(setq x-ht tx-ht))
(setq tx-ht x-ht)
(setq e-x (car ne1))(setq xx (rtos e-x))
(setq n-y (cadr ne1))(setq yy (rtos n-y))
(tx-f)
)
(defun tx-f ()
(setq vx (strcat " E " xx))
(setq vy (strcat " N " yy))
[color=red](command "_.TEXT" "_J" "_ML" "_non" ne1 x-ht 0.0 (strcat vx " / " vy))[/color]
)

(defun c:ne( / oldOsmode e-x n-y ne1 prmt tx-ht vx vy x-ht xx yy )
(defun go_ne()
 (setvar "luprec" 2)
 (setq prmt (strcat "Enter TEXT HEIGHT<" (rtos tx-ht) ">: "))
 (princ prmt)
 (setq x-ht (getreal))
 (if (= x-ht nil)
  (setq x-ht tx-ht)
 )
 (setq tx-ht x-ht)
 (setq e-x (car ne1))
 (setq xx (rtos e-x))
 (setq n-y (cadr ne1))
 (setq yy (rtos n-y))
 (tx-f)
)
(defun tx-f()
 (setq vx (strcat " E " xx))
 (setq vy (strcat " N " yy))
 (command "_.TEXT" "_J" "_ML" ne1 x-ht 0.0 (strcat vx " / " vy))
)
(setq tx-ht 0.5)
(setq oldOsmode (getvar "OSMODE"))
(setvar "osmode" 1)
(setq ne1 (getpoint "\nPick point..."))
(setvar "osmode" 0)
(if (/= ne1 nil)
 (go_ne)
 (princ "\nInvalid Location !")
)
(setvar "OSMODE" oldOsmode)
(princ)
)

(setvar "osmode" 1)

(setvar "osmode" [color=red]427[/color])

[color=red];[/color](setvar "luprec" 2)
...
(setq xx (rtos e-x [color=red]2 0[/color]))
...
(setq yy (rtos n-y [color=red]2 0[/color]))