[求助]：大家再帮忙看看,下面的lsp问题出在哪?

yugarden511 · 发表于 2005-1-6 20:08:41

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

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

×

(defun c:y (/obj pt1 pt2)
  (setq obj (entsel "\n请选择对象："))
  (setq pt1 (getpoint "\n请选择中轴线第一点："))
  (setq pt2 (getpoint "\n请选择中轴线第二点："))
  (command "mirror" obj "" pt1 pt2 "Y")
  (princ)
)

作用是:mirror后删除原对象.

ll_j · 发表于 2005-1-6 20:39:31

问题出在“(defun c:y (/obj pt1 pt2)”的“/obj”，“/”与“obj”之间至少应该有一个空格。
“(setq obj (entsel "\n请选择对象："))”一句最好改为：
(princ "\n请选择对象：")
(setq obj (ssget))
修改后可以多选。

sdwy19691229 · 发表于 2005-1-6 21:50:40

(/obj pt1 pt2)”的“/”与“obj”之间应该有一个空格.

呵！呵！我觉得学以致用。
mirror命令本身已经非常完备了.
似乎没必要编写这个了。
（entsel 是点选图元，只能选择一个图元。）

yugarden511 · 发表于 2005-1-7 08:54:39

我是学lsp顺便用用。

我觉的能省就省，这是绘图的目的吧。
太感谢长老。对于第一个低级错误我为我给长老带来的麻烦道歉，第二个建议很好。
太感谢了.

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

[求助] [求助]：大家再帮忙看看,下面的lsp问题出在哪?

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

相关帖子