[求助]：帮我看看我写的lisp

xrw · 发表于 2004-4-29 10:31:55

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

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

×

;*****Z轴复制*****
(defun c:ccc (/ gp z i) (princ "\n***Z轴复制***wudi@5d_cad***2004.04***")
  (setq i (getint "\n输入Z方向复制距离: "))
  (setq z (list 0 0 i))
  (setq gp (ssget))
  (command "copy" gp "" "0,0,0" z)
  (prin1)
)
;*****Z轴复制*****

这个程序是方便我在z方向的复制，可是加载运行后，有的时候的确能在Z轴复制，但是有的时候就不行，怪怪怪，急急急

zhynt · 发表于 2004-4-29 10:48:07

注意先将对象捕捉关闭试试

xrw · 发表于 2004-4-29 10:57:25

大侠是怎么回事啊，能教教我嘛
另外，我的这段lisp怎么完善啊？

zhynt · 发表于 2004-4-29 11:24:56

(defun c:ccc (/ gp z i) (princ "\n***Z轴复制***wudi@5d_cad***2004.04***")
(setq oldos (getvar "osmode"))
(setq i (getint "\n输入Z方向复制距离: "))
(setq z (list 0 0 i))
(setq gp (ssget))
(setvar "osmode" 0)
(command "copy" gp "" "0,0,0" z)
(setvar "osmode" oldos)
(prin1)
)

xrw · 发表于 2004-4-29 12:01:10

我发现R14中的3darray，三维阵列命令也有相同的问题
我想知道这个是什么原因？为什么会和捕捉有关？
也衷心感谢斑竹

陌生人 · 发表于 2004-4-29 13:17:56

因为“0,0,0”点和（list 0 0 z)上可能会有其它物体！
[php]
(defun c:cz (/ ss z as)
  (princ "\nz方向拷贝实体:")
  (while (setq ss (ssget))
(setq z  (getdist "\nz方向距离:")
      as (getvar "autosnap"))
(vl-cmdf ".copy" ss "" "non" "0,0,0" "non" (list 0 0 z))
  )(princ)
)
[/php]

xrw · 发表于 2004-4-29 15:38:18

陌生人，看了你写的lisp，在r14里面是不是用不了啊？
另外你以前写的圆变多边形的liso是不是不能在r14里面用啊？

841594 · 发表于 2004-4-29 20:09:58

把vl-cmdf函数改成command函数就可以在r14用了。

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

[求助] [求助]：帮我看看我写的lisp

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

相关帖子

高手

陌生人，看了你写的