，尺寸线性标注800远 各位版主大人~~~速度来赚钱了

dasha321

非常好的帖子

趣意人生

值得收藏学习！

l982414603

院长出手非同凡响啊！多谢！

依然小小鸟

不错的帖子 顶一下

liunian0524

xj6019 发表于 2019-11-26 10:46
谁能把17楼的和27楼的结合一下啊  ，命令运行后就先输入偏移值，并可以记忆便宜量，然后可以连续点击标注， ...

(defun c:tt3 (/ p1 p2 p3 rad r1 p3 p4)
(setvar "cmdecho" 0)
   (if (null *dim_dist)(setq *dim_dist (* 200 (getvar "dimscale"))));;设定偏移默认值
   (if(setq temp (getreal(strcat "\n指定尺寸线偏移距离：<"(rtos *dim_dist) ">")))(setq *dim_dist temp))  
   (if (and (setq p1 (getpoint "\n指定第一条尺寸界线原点:"))
            (setq p2 (getpoint p1 "\n指定第二条尺寸界线原点:"))
            (setq p3 (getpoint p2 "\n方向点: "))
       )
    (progn
          (setq rad (angle p1 p2)
                 r1  (+ rad (* pi 0.5))
                 p4  (inters p1 p2 p3 (polar p3 r1 10) nil)
                 p3  (polar p4 (angle p4 p3) *dim_dist)
           )
           (command "_dimaligned" "non" p1 "non" p2 "non" p3)
            (while (setq p4 (getpoint "\n指定第二条尺寸界线原点:<退出>: "))
             (setq p4 (inters p1 p2 p4 (polar p4 r1 100) nil))
             (command "dimcontinue" "non" p4 "")
             (while (> (getvar "cmdactive") 0) (command ""))
           )
    )
  )
  (princ)
)