linx1314 发表于 2009-4-12 14:45:00

标注距离

<p>要怎么做到：第一点到第二点的长度，自动标注如：“L=23.8m”，而且“L=23.8m”在两点的中间位置！请高手帮我编下！谢谢</p>

ZZXXQQ 发表于 2009-4-13 08:52:00


(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(if (and
      (setq pt1 (getpoint "\nFirst Point 点一 :"))
      (setq pt2 (getpoint pt1 "\nSecond Point 点二 :"))
   ) (progn
(setq dst (distance pt1 pt2)
      dtt (strcat "L=" (rtos dst 2 1) "m")
      ang (angle pt1 pt2)
      ptt (polar pt1 ang (/ dst 2)))
(command ".text" pt1 "" ang dtt)
))
(setvar "OSMODE" oldos)
(princ)
)

Austin007 发表于 2009-5-8 23:10:00

wo xiang kan kan

hbczxs 发表于 2009-7-9 08:58:00

<p>为什么我看不了呢</p>

107627ZJ 发表于 2012-10-14 13:00:43

发个给我好吗？qq252113063谢谢
页: [1]
查看完整版本: 标注距离