[LISP函数]：一标注获取点的三维坐标lsp程序

lzlan100

呵呵，感觉用起来还不错。
[php]
(defun jj ()
  (setvar "osmode" 0)
  (setq p2 (getpoint p1 "\ntext place?")
        a1 (car p1)                       ; X ordinate
        b1 (cadr p1)                       ; Y ordinate
        c1 (caddr p1)                       ; Z ordinate
        d1 (car p2)
        e1 (cadr p2)
        f1 (caddr p2)
        a2 (rtos a1 2 3)               ; real to string
        b2 (rtos b1 2 3)
        c2 (rtos c1 2 3)
        xx (strcat "X=" a2)
        yy (strcat "Y=" b2)
        zz (strcat "Z=" c2)
  )                                       ; end setq
  (if (< d1 a1)
    (setq pp (polar p2 pi le)
          p3 (polar pp (/ pi 2) ll)
          p4 (polar pp (/ pi -2) (+ ll ht))
          p5 (polar pp (/ pi -2) (+ ll ht ht (/ ht 2)))
    )
    (setq pp (polar p2 0 le)
          p3 (polar p2 (/ pi 2) ll)
          p4 (polar p2 (/ pi -2) (+ ll ht))
          p5 (polar p2 (/ pi -2) (+ ll ht ht (/ ht 2)))
    )                                     
  )                                       ; end if
  (command "line" p1 p2 pp "")
  (command "text" p3 ht 0 xx)
  (command "text" p4 ht 0 yy)
  (command "text" p5 ht 0 zz)
)


(defun C:xz ()
  (setvar "texteval" 1)
  (setvar "cmdecho" 0)                       ; 关闭命令显示
  (setq v (getvar "dimscale"))               ; 全局比例因子
  (setq ht (getreal "\nHeight of text (2mm)"))
  (if (= ht nil)
    (setq ht (* v 2))
    (setq ht (* v ht))
  )                                       ; end if
  (setq le (* ht 5)
        ll (/ ht 3)
  )
  (setq n 0)
  (while (= n 0)
    (setvar "osmode" 33)               ; 指定端点和交点对象捕捉
    (setq p1 (getpoint "\nwhere?"))
    (if (= nil p1)
      (setq n 1)
      (jj)
    )                                       ; 判断是否重复命令
  )                                    ; end while
  (setvar "osmode" 0)                       ; 取消捕捉
)
[/php]