[LISP函数]：问大家一个问题

userzhluserzhl · 发表于 2007-3-13 13:11:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:rw90()
(vlax-add-cmd "ALIGNSPACE" "c:ALIGNSPACE")
(setq p1 "0,0")
(setq p2 "0,10")
(setq p3 "0,-10")
(vl-cmdf "alignspace" p1 p2 p1 p3))

这个命令是扩展工具中的，只要完全按装就会有，我电脑里单独执行这个程序就可以，但是我上面这样编就不行，不知是什么原因。

zml84 · 发表于 2007-3-13 15:07:55

楼主要的是否是下面这个？（点的坐标须用表结构）
[PHP]
(defun C:rw90 ()
(vlax-add-cmd "ALIGNSPACE" "c:ALIGNSPACE")
(setq p1 '(0 0))
(setq p2 '(0 10))
(setq p3 '(0 -10))
(vl-cmdf "alignspace" p1 p2 p1 p3)
(princ)
)
[/PHP]

userzhluserzhl · 发表于 2007-3-13 15:16:43

楼上，不行呀
命令: rw90
Nested error trapping used incorrectly.
Resetting nesting index to 1.
nil
nil
nil
nil
nil

zml84 · 发表于 2007-3-13 15:33:04

我这里只有ALIGN命令，没有ALIGNSPACE的定义。不知这个命令的响应序列是怎样的。

xbdx · 发表于 2007-3-13 15:40:22

AUTOCAD2006中有ALIGNSPACE命令，但必须将TILEMODE 设置为0才可调用

userzhluserzhl · 发表于 2007-3-13 16:42:50

楼上，我试了，还是一样呀。

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：问大家一个问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP函数]：问大家一个问题