按框大小缩放图形的功能

rocking2008

还有39个币，可以全部给付。
懒人的需求，一次性对多个对象分别进行替换，
AA---替换成--BB
CC---替换成--DD
EE---替换成--FF
GG---替换成--HH
JJ---替换成--KK
只要对框选范围内的单行文字、多行文字有效即可。

输入的AA/BB,CC/DD……这些内容保存在一个“替换内容.ini"文件中，重启CAD不会丢失所填内容。

start4444

这种东西就是几个命令就能实现，看你发两个贴等的时间完全可以自己写出来了
先把目标对象最外轮廓算出来，再对比缩放框的尺寸，然后用缩放命令或者对齐命令都可以得到最后的结果了，就那么两三步操作

rocking2008

start4444 发表于 2020-5-18 10:59
这种东西就是几个命令就能实现，看你发两个贴等的时间完全可以自己写出来了
先把目标对象最外轮廓算出来， ...

rocking2008

rocking2008 发表于 2020-5-18 11:02

明经币就是用来花的，留着干啥

cq4920

这就是个简单是思路！

2. 
   
3. (setq ss (ssget))
   
4. (mc:wk ss);获得选择集外框
   
5. (setq ent (entlast))
   
6. (vl-load-com)
   
7.         (vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)
   
8.         (setq pmax (vlax-safearray->list maxpoint)
   
9.                 pmin (vlax-safearray->list minpoint))
   
10.         (setq p2 (list (car pmax) (cadr pmin)))
    
11.         (setq p4 (list (car pmin) (cadr pmax)))
    
12. 
    
13. (setq h1 (distance pmin p4))
    
14. (setq w1 (distance pmin p2))
    
15. 
    
16. (setq ent2(entsel))
    
17.         (vla-getboundingbox (vlax-ename->vla-object ent2) 'minpoint 'maxpoint)
    
18.         (setq pmax2 (vlax-safearray->list maxpoint)
    
19.                 pmin2 (vlax-safearray->list minpoint))
    
20.         (setq p2b (list (car pmax) (cadr pmin)))
    
21.         (setq p4b (list (car pmin) (cadr pmax)))
    
22. 
    
23. (setq h2 (distance pmin2 p4b))
    
24. (setq w2 (distance pmin2 p2b))
    
25. 
    
26. (setq bl1 (/ h2 h1))
    
27. (setq bl2 (/ w2 w1))
    
28. 
    
29. (if  (< bl1 bl2)
    
30.         (progn
    
31.                
    
32.                
    
33.                
    
34.         )
    
35.        
    
36.                 (progn
    
37.                
    
38.                
    
39.                
    
40.         )
    
41.        
    
42.        
    
43.        
    
44.        
    
45.        
    
46. )
    
47. 
    

<br /> (setq ss (ssget))<br /> (mc:wk ss);获得选择集外框<br /> (setq ent (entlast))<br /> (vl-load-com)<br />         (vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint)<br />         (setq pmax (vlax-safearray->list maxpoint)<br />                 pmin (vlax-safearray->list minpoint))<br />         (setq p2 (list (car pmax) (cadr pmin)))<br />         (setq p4 (list (car pmin) (cadr pmax)))<br /> <br /> (setq h1 (distance pmin p4))<br /> (setq w1 (distance pmin p2))<br /> <br /> (setq ent2(entsel))<br />         (vla-getboundingbox (vlax-ename->vla-object ent2) 'minpoint 'maxpoint)<br />         (setq pmax2 (vlax-safearray->list maxpoint)<br />                 pmin2 (vlax-safearray->list minpoint))<br />         (setq p2b (list (car pmax) (cadr pmin)))<br />         (setq p4b (list (car pmin) (cadr pmax)))<br /> <br /> (setq h2 (distance pmin2 p4b))<br /> (setq w2 (distance pmin2 p2b))<br /> <br /> (setq bl1 (/ h2 h1))<br /> (setq bl2 (/ w2 w1))<br /> <br /> (if  (< bl1 bl2)<br />         (progn <br />                 <br />                 <br />                 <br />         )<br />         <br />                 (progn <br />                 <br />                 <br />                 <br />         )<br />         <br />         <br />         <br />         <br />         <br /> )<br /> <br />

rocking2008

cq4920 发表于 2020-5-19 00:55
这就是个简单是思路！

老师您完工一下呗，我不会。

rocking2008

我的帖子要沉到海底了，明经老师们，出来活动一下手指吧。谢谢。

rocking2008

10个币请老师解决个问题。

rocking2008

老师们。帮写个替换的功能，改一改图纸。一个一个的替换太累了。

伍星

4年了，不容易啊