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

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

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

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

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

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

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

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

(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:38

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

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

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

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

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

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

fangseng 发表于 2022-7-18 10:39
有点美中不足的是标注都是横的，能不能改成如图所示的标注，请哪位大侠出手，谢谢！

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

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

的确是这样，关闭捕捉后，就正常了，谢谢菜卷鱼！！

gzsod 发表于 2022-8-14 14:32:13

菜卷鱼 发表于 2022-7-14 14:44
注意，要标注的圆不能与别的任何东西重叠

大佬可能统计相同数量标注上显示出来
并把参照直径放到外置txt文件中
以前见过这类功能
统计所有圆并只在其中1个圆上标注数量与直径，再把与txt中匹配的相同的直径大小，提取直径所在行空格后面的备注信息（压铆螺母SP-M4-1）
页: [1] 2
查看完整版本: 这个压铆标注P可不可以改为框选