按框大小缩放图形的功能
本帖最后由 rocking2008 于 2024-10-19 22:15 编辑还有39个币，可以全部给付。
懒人的需求，一次性对多个对象分别进行替换，
AA---替换成--BB
CC---替换成--DD
EE---替换成--FF
GG---替换成--HH
JJ---替换成--KK
只要对框选范围内的单行文字、多行文字有效即可。
输入的AA/BB,CC/DD……这些内容保存在一个“替换内容.ini"文件中，重启CAD不会丢失所填内容。
这种东西就是几个命令就能实现，看你发两个贴等的时间完全可以自己写出来了
先把目标对象最外轮廓算出来，再对比缩放框的尺寸，然后用缩放命令或者对齐命令都可以得到最后的结果了，就那么两三步操作 start4444 发表于 2020-5-18 10:59
这种东西就是几个命令就能实现，看你发两个贴等的时间完全可以自己写出来了
先把目标对象最外轮廓算出来， ...
rocking2008 发表于 2020-5-18 11:02
明经币就是用来花的，留着干啥 本帖最后由 cq4920 于 2020-5-19 00:57 编辑
这就是个简单是思路！
(setq ss (ssget))
(mc:wk ss);获得选择集外框
(setq ent (entlast))
(vl-load-com)
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)
(setq pmax (vlax-safearray->list maxpoint)
pmin (vlax-safearray->list minpoint))
(setq p2 (list (car pmax) (cadr pmin)))
(setq p4 (list (car pmin) (cadr pmax)))
(setq h1 (distance pmin p4))
(setq w1 (distance pmin p2))
(setq ent2(entsel))
(vla-getboundingbox (vlax-ename->vla-object ent2) 'minpoint 'maxpoint)
(setq pmax2 (vlax-safearray->list maxpoint)
pmin2 (vlax-safearray->list minpoint))
(setq p2b (list (car pmax) (cadr pmin)))
(setq p4b (list (car pmin) (cadr pmax)))
(setq h2 (distance pmin2 p4b))
(setq w2 (distance pmin2 p2b))
(setq bl1 (/ h2 h1))
(setq bl2 (/ w2 w1))
(if(< bl1 bl2)
(progn
)
(progn
)
)
cq4920 发表于 2020-5-19 00:55
这就是个简单是思路！
老师您完工一下呗，我不会。 我的帖子要沉到海底了，明经老师们，出来活动一下手指吧。谢谢。 10个币请老师解决个问题。 老师们。帮写个替换的功能，改一改图纸。一个一个的替换太累了。 4年了，不容易啊
页:
[1]
2