歡迎來到http://www.tljciu.live !
當前位置:六六工程資料網建筑課堂工程資料工程測量這是標坐標的lisp源碼

這是標坐標的lisp源碼

08-22 13:58:55  瀏覽次數:459次  欄目:工程測量
標簽:工程測量規范,工程測量技術, 這是標坐標的lisp源碼,http://www.tljciu.live
(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源碼

++《這是標坐標的lisp源碼》相關文章

22选五的开奖公告