这是标坐标的lisp源码

概要：(defun c:bz();标注坐标   (setvar "cmdecho" 0)   (command "osnap" "app,end")      (setq zbd (getpoint "\n请点击要标注坐标的点："))   (command "osnap" "off")   (setq zbd2 (getpoint "\n请点击伸出的第二个点："))   (command "line" zbd zbd2 "")   (setq zbd2x (car zbd2))&nbs

这是标坐标的lisp源码,标签：工程测量规范,工程测量技术,http://www.67jzw.com
(defun c:bz();标注坐标
   (setvar "cmdecho" 0)
   (command "osnap" "app,end")   
   (setq zbd (getpoint "\n请点击要标注坐标的点："))
   (command "osnap" "off")
   (setq zbd2 (getpoint "\n请点击伸出的第二个点："))
   (command "line" zbd zbd2 "")
   (setq zbd2x (car zbd2))
   (setq zbd2y (cadr zbd2))
   (setq zbdx (car zbd))
   (setq zbdy (cadr zbd))
   (if (>= zbd2x zbdx)
       (progn
         (command "line" zbd2 (list (+ zbd2x 30) zbd2y) "")  
         (command "text" "s" "Standard" "j" "bl" (list (+ zbd2x 1.2) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))
         (command "text" "s" "Standard" "j" "tl" (list (+ zbd2x 1.2) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3)))  
       )
       (progn
         (command "line" zbd2 (list (- zbd2x 30) zbd2y) "")  
         (command "text" "s" "Standard" "j" "bl" (list (- zbd2x 28) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))
         (command "text" "s" "Standard" "j" "tl" (list (- zbd2x 28) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3)))  
       )

   )
)


上一篇：CASIO FX-4800P计算器在导线测量中的应用