多条连续直线廷长求思路!!!!!或原码

eachy

crazylsp 发表于 2013-6-25 23:33
找到直线的端点，分析出不共点的端点，计算延长的这种端点，更新entmod

好想法，忘了我写过 Checkopen 可以找出这两个端点

zxq0220

[sell=1]

2. 
   
3. ;双向延伸固定值 zxq0220 2013.6.26
   
4. (defun c:tt ()
   
5. (setvar "CMDECHO" 0)
   
6. (setq s1 (entlast) ss2 (list))
   
7. (if (and (princ "\n选择直线: ")
   
8. (setq ss (ssget '((0 . "LINE"))))
   
9. (setq d (getdist "\n延长尺寸: "))) (progn
   
10. (command "_.PEDIT" "M" ss "" "Y" "J" 0.03 "")
    
11. (while (setq s1 (entnext s1)) (setq ss2 (cons s1 ss2)))
    
12. (foreach x ss2
    
13. (setq ent (entget x)
    
14. p1 (cdr(assoc 10 ent))
    
15. p2 (cdr(assoc 10 (reverse ent))))
    
16. (command "_.LENGTHEN" "DE" d (list p1 x) (list p2 x) "")
    
17. (command "_.EXPLODE" x)
    
18. )
    
19. ))
    
20. (setvar "CMDECHO" 1)
    
21. (princ)
    
22. )
    

<br /> ;双向延伸固定值 zxq0220 2013.6.26<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq s1 (entlast) ss2 (list))<br /> (if (and (princ "\n选择直线: ")<br /> (setq ss (ssget '((0 . "LINE"))))<br /> (setq d (getdist "\n延长尺寸: "))) (progn<br /> (command "_.PEDIT" "M" ss "" "Y" "J" 0.03 "")<br /> (while (setq s1 (entnext s1)) (setq ss2 (cons s1 ss2)))<br /> (foreach x ss2<br /> (setq ent (entget x)<br /> p1 (cdr(assoc 10 ent))<br /> p2 (cdr(assoc 10 (reverse ent))))<br /> (command "_.LENGTHEN" "DE" d (list p1 x) (list p2 x) "")<br /> (command "_.EXPLODE" x)<br /> )<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

[/sell]

ysq101

zxq0220 发表于 2013-6-26 08:10
**** 本内容需购买可见 ****

都帮我写出来了???谢谢...先测试一下

GTJ116600

crazylsp 发表于 2013-6-25 23:33
找到直线的端点，分析出不共点的端点，计算延长的这种端点，更新entmod

好思路，赞一个

GTJ116600

zxq0220 发表于 2013-6-26 08:10
**** 本内容需购买可见 ****

楼主，经测试，程序运行出现错误。初步分析：pedit在编程中不支持选择集。
另请高手们分析给出高见

应该是这条语句有问题(command "_.PEDIT" "M" ss "Y" "J" 0.03 "")

ysq101

GTJ116600 发表于 2013-6-26 14:24
楼主，经测试，程序运行出现错误。初步分析：pedit在编程中不支持选择集。
另请高手们分析给出高见

...

这个不是问题....我可以改改..........或我手工把LINE变成PLINE

ysq101

新手表示可以这样:大家看一下实不实用.....
先找到两个端点....再在端点画一个圆,,,,,后廷长PLINE  删除圆.....OK

zxq0220

17楼改了，再试试。