这是标坐标的lisp源码
08-22 13:58:55 浏览次数:459次 栏目:工程测量
标签:工程测量规范,工程测量技术,
这是标坐标的lisp源码,http://www.gong66.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)))  
       )
   )
)
,这是标坐标的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))
   (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)))  
       )
   )
)
,这是标坐标的lisp源码
上一篇:CASIO FX-4800P计算器在导线测量中的应用
下一篇:导线测量粗差经验探测
++《这是标坐标的lisp源码》相关文章
- › 这是标坐标的lisp源码
- 在百度中搜索相关文章:这是标坐标的lisp源码
- tag: 暂无联系方式, 工程测量,工程测量规范,工程测量技术,工程资料 - 工程测量