[求助]：怎样向选择集添加、合并多义线

真龙天子

我记得有位版主调侃过一位网友是“问题青年”，其实我也是一个问题老年，近来在本论坛上发过不少求助的贴，都得到了众多热心人的帮助，很感谢大家。
这不是我的问题又来了！
我的本意是画一条多义线，并在画多义线各转折点前，先在其对应y=0的x轴上画上一个点标记。
因在画多义线的中途转去画点标记会中断画多义线的命令，不能保持所画多义线的连续性。为解决此问题，想用下面的程序（已简化）来实现目的。
但是问题来了，因我还没学过选择集的用法，程序运行到(ssadd s ss)时就终止了，
提示“错误 : no function definition: SS”，显然是语法不对，请哪位大侠告知ssadd的详细用法。
我的问题是：
1 怎样把刚才画的6条多义线加进选择集ss？
2 怎样把选择集里的6条多义线合并成一条多义线？
3 怎样在选择集ss里最终只保留刚合并好的多义线？

2. 
   
3. (defun c:lp ()
   
4.        (setvar "cmdecho" 0)        
   
5.        (setvar "pdmode" 35)      
   
6.        (setvar "pdsize" -5)      
   
7.    
   
8.   (setq        pa (list 0 0)
   
9.         x 0
   
10.         y 0
    
11.         a 50
    
12.         b 40)
    
13.   (repeat 6
    
14.      (setq x (+ x a)
    
15.            y (+ y b)
    
16.            pb (list x y)
    
17.      )
    
18.          (command "point" (list (car pb) 0))       
    
19.          (command "pline" pa pb "" "")   
    
20.          (setq pa pb
    
21.                s (entlast)
    
22.          )
    
23.          (ssadd s ss)
    
24.   )
    
25.   (command "pedit" "m" ss "" "j" 0.1 "" "")
    
26. )

<br /> (defun c:lp ()<br />        (setvar "cmdecho" 0)        <br />        (setvar "pdmode" 35)       <br />        (setvar "pdsize" -5)       <br />    <br />   (setq        pa (list 0 0)<br />         x 0<br />         y 0<br />         a 50<br />         b 40)<br />   (repeat 6 <br />      (setq x (+ x a)<br />            y (+ y b)<br />            pb (list x y)<br />      )<br />          (command "point" (list (car pb) 0))        <br />          (command "pline" pa pb "" "")   <br />          (setq pa pb<br />                s (entlast)<br />          )<br />          (ssadd s ss)<br />   )<br />   (command "pedit" "m" ss "" "j" 0.1 "" "")<br /> )

狂刀

１　ｓｓ要先定义(setq ss (ssadd))
2. 中图画点可考虑用ｖｌａ或ｄｘｆ直接生成
３多义线建议连续画　，用（ｅｎｔｌａｓｔ）返回
４．如果不连续画，用ｐｅｄｉｔ连接，也是用ｅｎｔｌａｓｔ求返回值．

xyp1964

最初由 真龙天子 发布
[B]我记得有位版主调侃过一位网友是“问题青年”，其实我也是一个问题老年，近来在本论坛上发过不少求助的贴，都得到了众多热心人的帮助，很感谢大家。
这不是我的问题又来了！
我的本意是画一条多义线，并在画多义线... [/B]

错误较多，请对照检查。

2. [FONT=courier new]
   
3. (defun c:lp ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "pdmode" 35)
   
6.   (setvar "pdsize" 5)
   
7.   (setvar "PLINEWID" 0)
   
8.   (setq        pa (list 0 0)
   
9.         x  0
   
10.         y  0
    
11.         a  50
    
12.         b  40
    
13.         ss (ssadd)
    
14.   )
    
15.   (repeat 6
    
16.     (setq x  (+ x a)
    
17.           y  (+ y b)
    
18.           pb (list x y)
    
19.     )
    
20.     (command "point" (list x 0))
    
21.     (command "pline" pa pb "")
    
22.     (setq pa pb
    
23.           s  (entlast)
    
24.     )
    
25.     (ssadd s ss)
    
26.   )
    
27.   (command "pedit" "m" ss "" "j" "" "")
    
28.   (princ)
    
29. )[/FONT]

[FONT=courier new]<br /> (defun c:lp ()<br />   (setvar "cmdecho" 0)<br />   (setvar "pdmode" 35)<br />   (setvar "pdsize" 5)<br />   (setvar "PLINEWID" 0)<br />   (setq        pa (list 0 0)<br />         x  0<br />         y  0<br />         a  50<br />         b  40<br />         ss (ssadd)<br />   )<br />   (repeat 6<br />     (setq x  (+ x a)<br />           y  (+ y b)<br />           pb (list x y)<br />     )<br />     (command "point" (list x 0))<br />     (command "pline" pa pb "")<br />     (setq pa pb<br />           s  (entlast)<br />     )<br />     (ssadd s ss)<br />   )<br />   (command "pedit" "m" ss "" "j" "" "")<br />   (princ)<br /> )[/FONT]

真龙天子

真的辛苦老师们了，等到我把作业做好后一定交给老师们批批，不然老师们就白辛苦了．

longcy

直接用“合并“命令