[LISP程序]：高手来帮看看

pipi002004 · 发表于 2005-12-20 16:59:12

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

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

×

求大哥门看看
;;; **********************************多重复制CV
(DEFUN C:CV (/ SS FL)
  (PRINC "\n请选择要复制的物体: ")
  (PROGN
(SETQ SS (SSGET))
(SETQ N (SSLENGTH SS))
(COMMAND "COPY" SS "" "m" "")
(REPEAT N
   (COMMAND "" COPY "" "")
)
(PRINC)
  )
)
为什么上面代码在r14中先出现
Point or option keyword required.
出错:Function cancelled
nilBase point:
然后又可以重复copy,
请大哥门帮忙改改，r14中哈，谢谢

Underway · 发表于 2005-12-20 17:22:19

指令: copy
选取物件: 另一角点: 找到 2 个

选取物件:
<基准点或位移>/多重(M): m
基准点: 位移第二点: 位移第二点: 位移第二点: 位移第二点:

(DEFUN C:CV (/ SS)
(PRINC "\n请选择要复制的物体: ")
(SETQ SS (SSGET))
(COMMAND "COPY" SS "" "m")
)

Dallas_whu · 发表于 2005-12-20 17:26:46

不知道你的程序为什么要repeat (sslength ss),不知我的能不能满足你的要求.
(DEFUN C:MC (/ SS DECM STR)
  (PRINC "\n多重拷贝，请选择对象：")
  (SETQ SS (SSGET))
  (SETQ DECM (SSLENGTH SS))
  (SETQ DECM (ITOA DECM))
  (SETQ STR (STRCAT "\n共选择" DECM "个对象！"))
  (PRINC STR)
  (COMMAND "_.COPY" SS "" "M")
  (PRINC)
)

pipi002004 · 发表于 2005-12-20 18:13:49

经过测试r14下2个程序都非常完美,谢谢2个好心人,敬礼

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

[LISP程序]：高手来帮看看

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

相关帖子