[LISP函数]：帮忙看看这个偏移到当前层的程序

conn · 发表于 2004-4-1 20:32:09

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

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

×

不是很好用，谁能帮忙优化下：

defun c:test( / clayer ent)
  (setq clayer (getvar "clayer"))
  (setq ent (entlast))
  (command "_.offset")
  (while (/= (getvar "cmdactive") 0)
(command pause)
  )
  (while (setq ent (entnext ent))
(command "_.change" ent "" "p" "la" clayer "")
  )
  (princ)
)

来自明经

陌生人 · 发表于 2004-4-2 00:42:13

你怎么又在这发相同的贴？引用了别人的程序应该注明作者！
怎么不好用？是不是命令行没有提示？
在程序中加(setq oc (getvar "cmdecho"))(setvar "cmdecho" 1) ..........(setvar "cmdecho" oc)

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

[LISP函数]：帮忙看看这个偏移到当前层的程序

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

相关帖子

浏览过的版块