CAD加载LISP命令，出现函数被取消，建议将（command）调用转换为（command-s）

时间：2016.06.06 发布人：dengshuhua18
CAD加载LISP命令，出现函数被取消，建议将（command）调用转换为（command-s）

已解决问题

谷歌dengshuhua18用户在2016.06.06提交了关于“瑶里古镇CAD加载LISP命令，出现函数被取消，建议将（command）调用转换为（command-s）”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-09-05T22:27:41。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，滴水之恩,来日我当涌泉相报 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：qveic  

(if(setqssa(ssget))
(if(setqpt0动孩件状五敌(getpoint"\n基准点:"))
(progn
(setqs拿衡首吧saobj(vla-get-ActiveSelectionSet(vla-get-ActiveDocument(vlax-get-acad-object))))
(set构间丰另吗节展评光qp0(vlax-3d-pointpt0))
(setqp1(vlax-3d-point(mapcar'+pt0'(1000))))
(setqang(*0.5pi)
(vlax-forobjssaobj
(vla-rotate3dob族倍属局方老单孩之jp0p1ang)
)
)
)
)