社区 › AutoLISP/Visual LISP 编程技术 › 请问大家，我想设置拉伸命令 只对直线和文字起作用，这段命令有什么问题？谢谢

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

本帖最后由 ZZXXQQ 于 2014-12-8 21:22 编辑

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

nfz 发表于 2014-12-8 17:05:19

本帖最后由 nfz 于 2014-12-8 17:12 编辑

ZZXXQQ 发表于 2014-12-8 16:52 static/image/common/back.gif

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

nfz 发表于 2014-12-9 11:16:34

ZZXXQQ 发表于 2014-12-8 16:52 static/image/common/back.gif


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

ZZXXQQ 发表于 2014-12-10 11:02:06

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


这是操作情况

nfz 发表于 2014-12-10 11:49:29

ZZXXQQ 发表于 2014-12-10 11:02 static/image/common/back.gif
这是操作情况

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

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