想点击区域内，生成3个不同比例的填充

lee50310

月下闲人 发表于 2023-5-29 16:58
大佬可以对三层生成的偏移距离和填充比例自定义吗？

是自定
再程式中此處 偏移量   = 10 , 15 , 20
                    線型比例= "0.05" , "0.1" ,  "0.2"

2. ;<偏移+填充線型>      
   
3. (foreach x '((10 "0.05") (15 "0.1") (20 "0.2")) ;((偏移量1 "線型比例1") (偏移量2 "線型比例2") (偏移量3 "線型比例3"))
   
4.         (setq ipt(polar pe (+ ang (* pi 0.5)) (car x))) ;中點垂直偏移量點
   
5.         (command "_offset" (car x) obj ipt "")
   
6.     (setq eb(entlast))
   
7.     (command "_hatch" "AR-SAND" (cadr x) "" "_s" obj eb "")
   
8.     (setq obj eb)
   
9. );end_foreach

;<偏移+填充線型>       <br /> (foreach x '((10 "0.05") (15 "0.1") (20 "0.2")) ;((偏移量1 "線型比例1") (偏移量2 "線型比例2") (偏移量3 "線型比例3"))<br />         (setq ipt(polar pe (+ ang (* pi 0.5)) (car x))) ;中點垂直偏移量點<br />         (command "_offset" (car x) obj ipt "")<br />     (setq eb(entlast))<br />     (command "_hatch" "AR-SAND" (cadr x) "" "_s" obj eb "")<br />     (setq obj eb)<br /> );end_foreach

lee50310

月下闲人 发表于 2023-5-29 16:58
大佬可以对三层生成的偏移距离和填充比例自定义吗？可以有记忆功能设置和续点设置,如图

我考慮看看

月下闲人

lee50310 发表于 2023-5-29 17:27
我考慮看看

好的，麻烦了

bai2000

报告楼主：执行http://bbs.mjtd.com/forum.php?mo ... amp;_dsign=d113058f的<<< ***  封閉區域圓孔均佈 ***>>>后，，再运行这个，出现“Error: 参数太多”，直接退出
         执行过本程序后，再运行<<< ***  封閉區域圓孔均佈 ***>>>出现“Error: 参数太少”，直接退出

lee50310

月下闲人 发表于 2023-5-29 17:30
好的，麻烦了

已寫好另發表
請至此處下載
http://bbs.mjtd.com/thread-187948-1-1.html

lee50310

bai2000 发表于 2023-5-31 23:09
报告楼主：执行http://bbs.mjtd.com/forum.php?mod=viewthread&tid=187647&_dsign=d113058f的>后，，再运行 ...

很抱歉! 你的是最新的cad版本
我沒有此版本 無法找出你的問題

月下闲人

lee50310 发表于 2023-6-4 17:27
已寫好另發表
請至此處下載
http://bbs.mjtd.com/thread-187948-1-1.html

很好用，感谢大神

戏男

这样的填充是用在什么方面的图上？