fangseng 发表于 2022-7-13 20:13:00

这个压铆标注P可不可以改为框选

哪位前辈看一下这个压铆标注P可不可以改为框选，谢谢！

**** Hidden Message *****

菜卷鱼 发表于 2022-7-14 14:44:00

注意，要标注的圆不能与别的任何东西重叠

fangseng 发表于 2022-7-13 20:25:00

现在是一个个的点选，如果可以框选就人性化了！

xj6019 发表于 2022-7-14 08:07:00

(defun c:NM (/ bc cir en en1 fx i ss txt)
      (setq bc (getdist "\n板材厚度:"))
(setq fx (getint "\n/:"))
(setq i -1)
(if (setq ss (ssget ":S"(list '(0 . "CIRCLE"))))
    (while (and(setq en1 (ssname ss (setq i (1+ i)))))
                        (setq en (entgeten1))
                        (setq cir (* 2 (cdr (assoc 40 en))))
                        (cond      ((= cir 5.4) (setq txt "S-M4"))
                              ((= cir 6.4) (setq txt "S-M5"))
                              ((= cir 8.8) (setq txt "S-M6"))
                              ((= cir 10.5) (setq txt "S-M8"))
                              (t (princ (strcat "Ф"(rtos cir) "不是压铆底孔!")))
                        )
                        (cond
                              ((= bc nil) (setq bc 2))
                              ((= bc 0.8) (setq bc 0))
                              ((= bc 1) (setq bc 0))
                              ((= bc 1.2) (setq bc 0))
                              ((= bc 1.5) (setq bc 0))
                              ((= bc 2) (setq bc 1))
                              ((= bc 2.5) (setq bc 1))
                              ((= bc 3) (setq bc 1))
                              (t (setq bc 2))
                        )
                        (cond      ((= fx 1) (setq fx "正面"))
                              ((= fx 2) (setq fx "反面"))
                              (t (setq fx "反面"))
                        )
                        (command "DIMDIAMETER"
                              en1
                              "m"
                              (STRCAT fx "-" txt)
                              PAUSE
                        )
                        (command "MATCHPROP")
                )
)
      (princ)
)

fangseng 发表于 2022-7-14 08:52:00

多谢xj6019的回复，我试了一下，不行啊！

fangseng 发表于 2022-7-14 15:41:00

多谢菜卷鱼，这正是我想要的，

fangseng 发表于 2022-7-18 10:39:00

有点美中不足的是标注都是横的，能不能改成如图所示的标注，请哪位大侠出手，谢谢！要求所示


菜卷鱼 发表于 2022-7-19 18:38:00


跟捕捉有关系，你试着加入关闭捕捉功能

fangseng 发表于 2022-7-20 10:37:00

的确是这样，关闭捕捉后，就正常了，谢谢菜卷鱼！！
页: [1]
查看完整版本: 这个压铆标注P可不可以改为框选