CAD加载LISP命令，出现函数被取消，建议将（command）调用转换为（command-s）
调用（*push-error-using-command*）前无法从*error*调用，出现这个怎么设置？谢谢...
调用（*push-error-using-command*）前无法从*error*调用，
出现这个怎么设置？谢谢 展开
出现这个怎么设置？谢谢 展开
2个回答
展开全部
(if (setq ssa (ssget ))
(if (setq pt0 (getpoint "\n基准点:"))
(progn
(setq ssaobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq p0 (vlax-3d-point pt0))
(setq p1 (vlax-3d-point (mapcar '+ pt0 '(10 0 0))))
(setq ang (* 0.5 pi)
(vlax-for obj ssaobj
(vla-rotate3d obj p0 p1 ang)
)
)
)
)
(if (setq pt0 (getpoint "\n基准点:"))
(progn
(setq ssaobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
(setq p0 (vlax-3d-point pt0))
(setq p1 (vlax-3d-point (mapcar '+ pt0 '(10 0 0))))
(setq ang (* 0.5 pi)
(vlax-for obj ssaobj
(vla-rotate3d obj p0 p1 ang)
)
)
)
)
追问
不好意思，看不懂
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
