请问大家，我想设置拉伸命令 只对直线和文字起作用，这段命令有什么问题？谢谢

ZZXXQQ

2. (defun c:xs ()
   
3.   (setq zzqd (getpoint "起点:"))
   
4.   (setq zzzd (getcorner zzqd "终点:"))
   
5.   (setq zzss2 (ssget "c" zzqd zzzd))
   
6.   (setq zzfi (ssadd))
   
7.   (repeat (setq i (sslength zzss2))
   
8.     (setq en (ssname zzss2 (setq i (1- i))))
   
9.     (if (not(wcmatch (princ (cdr(assoc 0 (entget en)))) "LINE,TEXT"))
   
10.       (ssadd en zzfi)
    
11.     )
    
12.   )
    
13.   (command "stretch" "C" zzqd zzzd "R" zzfi "" PAUSE PAUSE)
    
14.   (princ)
    
15. )
    

(defun c:xs ()<br />   (setq zzqd (getpoint "起点:"))<br />   (setq zzzd (getcorner zzqd "终点:"))<br />   (setq zzss2 (ssget "c" zzqd zzzd))<br />   (setq zzfi (ssadd))<br />   (repeat (setq i (sslength zzss2))<br />     (setq en (ssname zzss2 (setq i (1- i))))<br />     (if (not(wcmatch (princ (cdr(assoc 0 (entget en)))) "LINE,TEXT"))<br />       (ssadd en zzfi)<br />     )<br />   )<br />   (command "stretch" "C" zzqd zzzd "R" zzfi "" PAUSE PAUSE)<br />   (princ)<br /> )<br />

nfz

ZZXXQQ 发表于 2014-12-8 16:52

谢谢Z版帮忙，这命令让我学习到很多。命令显示 错误: 参数类型错误: lselsetp nil。麻烦Z版更新一下，谢谢

nfz

ZZXXQQ 发表于 2014-12-8 16:52

继续提示
参数类型错误: lselsetp nil 位置-> 行:6 列:20

ZZXXQQ

nfz 发表于 2014-12-9 11:16
继续提示
参数类型错误: lselsetp nil 位置-> 行:6 列:20

这是操作情况

nfz

ZZXXQQ 发表于 2014-12-10 11:02
这是操作情况

找到原因了，没选中对象时会出现错误。谢谢Z版