[求助]求救！！！lisp高手！！！

wpizi · 发表于 2004-3-9 21:47:00

请问在lisp中怎样将圆柱体用rotate3d命令转动90度？不知(command "rotate3d" aa "" cenpt pt (/ pi 2))对不对？

meflying · 发表于 2004-3-9 22:13:00

对不对？为什么不自己试一试？

wpizi · 发表于 2004-3-10 11:27:00

请问这个程序的rotate3d命令错在哪里？谢谢！！！！ (defun slszt()
(setvar "cmdecho" 0)
(setq H1 (- (+ h4 h3 h2) 400))
(setq pt01 (polar pt0 (/ pi 2) h5))
(setq pt02 (polar pt01 (/ pi 2) H1))
(command "circle" pt01 r0)
(setq zt01 (entlast))
(command "extrude" zt01 "" H1 "")
(setq zt1 (entlast))
(command "circle" pt01 (+ r0 w0))
(setq zt02 (entlast))
(command "extrude" zt02 "" H1 "")
(setq zt2 (entlast))
(command "subtract" zt2 "" zt1 "")
(setq zt3 (entlast))
(command "rotate3d" zt3 "" pt01 "" pt2 "" 90 "")
(setq zt (entlast))
(prin1)
)

meflying · 发表于 2004-3-10 20:14:00

h4 h3 h2都没有值

wpizi · 发表于 2004-3-10 20:16:00

不是，这只是个子程序！！

主要就是rotate3d命令错在哪里？

meflying · 发表于 2004-3-10 20:51:00

pt01 pt02后面干吗都要回车？

wpizi · 发表于 2004-3-10 21:01:00

不要回车也不行,去掉也不能执行，rotate3d为未知命令！

但是不用lisp却又可以！

晓雨 · 发表于 2004-3-10 21:23:00

(setvar "cmdecho" 0)
是什么意思

meflying · 发表于 2004-3-10 21:34:00

那是你前面的command出现了问题，程序中应该尽量少用command，使用它就要保证使用正确，要一个一个地查，保证没个都能正确调用

无痕 · 发表于 2004-3-10 21:46:00

没问题啊，以下两个都行

(setq ss (ssget)
pt1(getpoint"\n1:")
pt2(getpoint"\n2:")
ang 90)
(command "rotate3d" ss "" pt1 pt2 ang)
;;;
(setq ss (ssget)
pt1(getpoint"\n1:")
pt2(getpoint"\n2:")
ang 90)
(rotate3d ss pt1 pt2 ang)

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