[求助]：有问题的lsp,问题是?

yugarden511 · 发表于 2005-1-5 13:04:08

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

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

×

目的:转45

(defun c:45 (/ os obj pt)
  (setvar "CMDECHO" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq obj (getpoint "\n请选择对象："))
  (setvar "osmode" 545)
  (setq pt (getpoint "\n请选择基点："))
  (setvar "osmode" 0)
  (command "rotate" obj pt1 "45")
  (setvar "osmode" os)
  (princ)
)

lijiao · 发表于 2005-1-5 13:18:50

OBJ为一点，而在COMMAND中，要求OBJ为实体或选择集。

yugarden511 · 发表于 2005-1-5 13:24:47

?????
我是菜鸟,能改个好的传上来对比对比????

czg09180274 · 发表于 2005-1-5 16:24:40

你将
(setq obj (getpoint "\n请选择对象："))
这句改成：
(setq obj (entsel "\n 请选择对象 :"))

应该就可以了。

另最后一句个人认为用
(prin1) 比用 (princ)要好点。

yugarden511 · 发表于 2005-1-5 18:11:00

thanks for your answer.
and the 45 question in the picture?
i will try it .

ll_j · 发表于 2005-1-5 21:39:30

问题出在“{command...}”一句，应该写成这样： (command "rotate" obj "" pt "45") ，少一个回车，pt写成pt1。
Obj使用getpoint选择当然不正确，但可以使用，这里相当于使用entsel拾取，但不能显示拾取框。

yugarden511 · 发表于 2005-1-6 19:02:41

谢过.
it should be that .
i try as 2nd floor friend but fail
i think you are right

还是显示:"未知命令“45”。按F1 查看帮助。"
怎么回事.程序改成下两都是这提示.
1:
(defun c:45 (/ os obj pt)
(setvar "CMDECHO" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq obj (entsel "\n请选择对象："))
(setvar "osmode" 545)
(setq pt (getpoint "\n请选择基点："))
(setvar "osmode" 0)
(command "rotate" obj "" pt1 "45" "")
(setvar "osmode" os)
(princ)
)

2:
(defun c:45 (/ os obj pt)
(setvar "CMDECHO" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq obj (entsel "\n请选择对象："))
(setvar "osmode" 545)
(setq pt (getpoint "\n请选择基点："))
(setvar "osmode" 0)
(command "rotate" obj "" pt1 "45" )
(setvar "osmode" os)
(princ)
)

请各位指教指教

过五分钟后:抱歉抱歉,是我看错了没改好pt1成pt.
行了.
谢谢大家,对于黄金长老的帮忙更感谢......

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

[求助] [求助]：有问题的lsp,问题是?

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

相关帖子

浏览过的版块