求助!关于使用pedit命令改线宽时，单线出错的问题

田家凯

想用代码实现的功能很简单：
1、预选择一条或多条PL线；
2、输入“b7”命令，将选择的PL线线宽改为7。

下面是学着写的代码：

1. (defun C:b7 (/ p l n nw)
   
2.    (setq p (ssget "_P" '((0 . "*POLYLINE,LWPOLYLINE"))))
   
3.    (if p (progn
   
4.    (setq l 0 n (sslength p) nw 7)
   
5.     (while (< l n)
   
6.      (command "_.pedit" (ssname p l) "w" nw "")
   
7.       (setq l (1+ l))
   
8.     )
   
9.    )
   
10.   )
    
11.   (PRINC)
    
12. )

(defun C:b7 (/ p l n nw)<br />    (setq p (ssget "_P" '((0 . "*POLYLINE,LWPOLYLINE"))))<br />    (if p (progn<br />    (setq l 0 n (sslength p) nw 7)<br />     (while (< l n)<br />      (command "_.pedit" (ssname p l) "w" nw "")<br />       (setq l (1+ l))<br />     )<br />    )<br />   )<br />   (PRINC)<br /> )

现在代码的问题是，选择的是多条PL线时是可以的，但是选择的是单线时，就会出错，显示下面的错误




不知道这个pedit命令该怎么写了。。求论坛大神们帮忙解决下

llsheng_73

1. (defun C:b7 (/ p l n nw)
   
2.    (if(setq l 0 nw 7 p (ssget'((0 . "*POLYLINE,LWPOLYLINE"))))
   
3.      (repeat(sslength p)
   
4.        (command "_.pedit" (ssname p l) "w" nw "")
   
5.        (setq l (1+ l))))
   
6.   (PRINC)
   
7. )

(defun C:b7 (/ p l n nw)<br />    (if(setq l 0 nw 7 p (ssget'((0 . "*POLYLINE,LWPOLYLINE"))))<br />      (repeat(sslength p)<br />        (command "_.pedit" (ssname p l) "w" nw "")<br />        (setq l (1+ l))))<br />   (PRINC)<br /> )

ivde

pedit->m   

田家凯

llsheng_73 发表于 2015-12-12 12:10

感谢大神的回答，这次单线也可以了
能否讲解下原代码为啥行不通么？是while的问题么

llsheng_73

田家凯 发表于 2015-12-12 22:06
感谢大神的回答，这次单线也可以了
能否讲解下原代码为啥行不通么？是while的问题么

不是while的问题，而是(setq p(ssget"_P"'(...)))里边的这个选择模式"_P"好象很有些作怪。。。

田家凯

llsheng_73 发表于 2015-12-12 23:36
不是while的问题，而是(setq p(ssget"_P"'(...)))里边的这个选择模式"_P"好象很有些作怪。。。

好的，又学习到了，谢谢大神指点