[求助]批量修改圆的直径！

coolpoom · 发表于 2008-11-5 11:32:00

求高手帮忙编一lisp 能批量修改0层不同的直径

至今没学会 · 发表于 2020-5-6 14:47:03

这个其实不能按层选，得按孔径选择才行，万一好多孔径的都在一个层的呢

coolpoom · 发表于 2008-11-5 16:57:00

比如0层下有0.8、0.9、1.0等圆孔，我要输入一个命令，在命令行提示旧圆多大，输入要改的尺寸，不改就回车

ljttjl · 发表于 2008-11-7 21:39:00

本帖最后由 ljttjl 于 2011-9-17 22:57 编辑

autocad本身就可以实现，filter过滤器命令批量选择相同的圆后，用属性修改管理就可以修改

ZZXXQQ · 发表于 2008-11-9 10:57:00

本帖最后由作者于 2008-11-15 12:15:57 编辑

再试试看

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

coolpoom · 发表于 2008-11-9 16:59:00

ZZXXQQ大哥，程式出错：

命令: tt
Select Circle(s) 选择圆:
选择对象: 指定对角点: 找到 2 个

选择对象:
选择对象: ; 错误: 参数类型错误: numberp: nil

能不能让程式自动选择0层？

(setq ss (ssget "X" '((0 . "CIRCLE")(8 . "0"))))

ZZXXQQ · 发表于 2008-11-9 20:22:00

4楼已改

coolpoom · 发表于 2008-11-10 11:05:00

程式还有一个问题不够完善：当某一种孔径不用改时，直接回车的话有多少个圆就要按多少次，麻烦~
命令: tt
请输入0层此种孔的新直径 <1.0000> :
请输入0层此种孔的新直径 <1.0000> :
请输入0层此种孔的新直径 <1.0000> :
请输入0层此种孔的新直径 <1.0000> :
请输入0层此种孔的新直径 <2.0000> :3

;提示改变圆的直径明经 ZZXXQQ
(defun c:tt ()
(if (and ;(princ "\nSelect Circle(s) 选择圆:")
(setq ss (ssget "X" '((0 . "CIRCLE")(8 . "0")))))
(progn
(setq i 0 clst (list))
(repeat (sslength ss)
(setq en (ssname ss i)
ent (entget en)
r1 (assoc 40 ent)
i (1+ i))
(if (not (member (cdr r1) clst)) (progn
(setq ss1 (ssget "X" (list '(0 . "CIRCLE") r1)))
(setq r (assoc 40 ent))
(setq newd (getdist (strcat "\n请输入0层此种孔的新直径 <" (rtos (* (cdr r) 2) 2 4) "> :")))
(if newd (progn
(setq j 0)
(setq r (/ newd 2))
(setq clst (cons r clst))
(repeat (sslength ss1)
(setq ent1 (entget(ssname ss1 j))
ent1 (subst (cons 40 r) (assoc 40 ent1) ent1)
j (1+ j))
(entmod ent1)
)
))
))
)
))
(princ)
(alert (strcat "0 层的孔已配完"))
)

ZZXXQQ · 发表于 2008-11-15 12:17:00

4楼又改了

coolpoom · 发表于 2008-11-15 15:57:00

又有新问题，如选择集中有1.0、1.1、1.2、1.3的圆，当把1.0的改为1.2时，接着就到1.1 、1.3了，1.2的就不能修改了。ZZXXQQ大哥这个问题如何解决。

ZZXXQQ · 发表于 2008-11-16 13:19:00

程序只能区分相同直径的圆。如果想要那么改，只能将1.2的圆改成别的直径再改1.1的圆。

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