如何选取多义线的一部分

bloodtempt

这个是我自己写的代码,不过返回上次选择只能是整个多义线,如何之将框选内的部分变为多义线 其余的炸开为直线
(defun c:fte (/ a ss)                        ; 变多义线
  (if (setq ss (ssget))
    (command "explode" ss "")
  )
  (setq ss1 (ssget "p"))
    (command "_.pedit" "_m" ss1 "" "_j" 0 "")
  )
  (princ)
)

ljpnb

2. 
   
3. (defun c:fte (/ a ss)
   
4.   ; 变多义线
   
5.   (setq p1(getpoint "\n框选第一角点:")
   
6.         p2(getcorner p1  "\n框选第二角点:")
   
7.         )
   
8.   (if (setq ss (ssget "c" p1 p2))
   
9.     (command "explode" ss "")
   
10.   )
    
11.   (setq ss1 (ssget "c" p1 p2))
    
12.   (command "pedit" "m" ss1 "" "" "j" 0 "")
    
13.   (princ)
    
14. )
    
15. 
    

<br /> (defun c:fte (/ a ss)<br />   ; 变多义线<br />   (setq p1(getpoint "\n框选第一角点:")<br />         p2(getcorner p1  "\n框选第二角点:")<br />         )<br />   (if (setq ss (ssget "c" p1 p2))<br />     (command "explode" ss "")<br />   )<br />   (setq ss1 (ssget "c" p1 p2))<br />   (command "pedit" "m" ss1 "" "" "j" 0 "")<br />   (princ)<br /> )<br /> <br />

bloodtempt

ljpnb 发表于 2013-11-27 17:02

框选第二角点:未知命令“FTE”。按 F1 查看帮助。
未知命令“FTE”。按 F1 查看帮助。
未知命令“J”。按 F1 查看帮助。
不过感谢你  大致有点思路了 我在研究一下

llsheng_73

(command "explode" ss "")后再(setq ss1 (ssget "c" p1 p2))这时一般会有些直线，弧等。。所以在(command "pedit" "m" ss1 "" "" "j" 0 "")时可能因为有直线、弧需要先回答是否转为多线段。
应该先判断下ss1里边是否有直线、弧等可以转为多线段的对象，根据情况决定要不要应该加上那个是否转为多线段的回答选项"Y"
因为原语句中没有，所以运行到这里出现未知命令提示并且程序出错

自贡黄明儒

这个容易,,

bloodtempt

自贡黄明儒 发表于 2013-12-4 14:12
这个容易,,

看不到命令  不过好像和我说的有点出入  我要框了几条就只有被框选的变为了多段线 这个号线都成段了

vladimirputin

不错的程序，谢谢楼主分享