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

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

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

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

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

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

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

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

(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)
)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

账号		自动登录	找回密码
密码			注册

[讨论] 这个压铆标注P可不可以改为框选

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

评分

浏览过的版块