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

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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

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

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

5pozspzm5t3.png

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

(defun c:NM (/ bc cir en en1 fx i ss txt)
      (setq bc (getdist "\n板材厚度:[2]"))
  (setq fx (getint "\n[1-正面]/[2-反面]:[2]"))
  (setq i -1)
  (if (setq ss (ssget ":S"(list '(0 . "CIRCLE"))))
(while (and(setq en1 (ssname ss (setq i (1+ i)))))
                     (setq en (entget  en1))
                     (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)
)