正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复（11 ）
主题
回复
粉丝
CAD下载及教程
52.08 万条内容 · 666 人订阅
阅读下一篇
请问如何让CAD图倒入PS后图象的清晰度高？晚辈在此感谢大家详谈！谢谢
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复（11 ）
只看楼主 我来说两句-
slydada
沙发
LISP编成请教
2006-10-18 13:23:18
赞同0
-
水的畅想
板凳
LISP编成请教
2006-10-17 16:53:17
赞同0
加载更多选择部分图元
基点PT1
复制到PT2
并以PT2为基点旋转一个角度
看看以下的程序错在什么地方？？？
(defun C:ffc ()
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq SS nil)
(setq SS (ssget))
(setq PT1 (getpoint "\n 指定复制基点:"))
(setq PT2 (getpoint "\n 指定旋转基点:" PT1))
(setq ANG0 (getangle PT2 "\n 指定旋转角度:"))
(setq ANG (* (/ ANG0 PI) 180))
;
(setq n 0.0)
(setq slen (sslength SS))
(while (< n slen)
(setq ss1 (ssname ss n))
(command "copy" ss1 "" PT1 PT2)
(command "ROTATE" ss1 "" PT2 ANG)
)
(setvar "OSMODE" OM)
(PRINC)
回复 举报
选择部分图元
基点PT1
复制到PT2
并以PT2为基点旋转一个角度
看看以下的程序错在什么地方？？？
(defun C:ffc ()
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq SS nil)
(setq SS (ssget))
(setq PT1 (getpoint "\n 指定复制基点:"))
(setq PT2 (getpoint "\n 指定旋转基点:" PT1))
(setq ANG0 (getangle PT2 "\n 指定旋转角度:"))
(setq ANG (* (/ ANG0 PI) 180))
;
(setq n 0.0)
(setq slen (sslength SS))
(while (< n slen)
(setq ss1 (ssname ss n))
(command "copy" ss1 "" PT1 PT2)
(command "ROTATE" ss1 "" PT2 ANG)
)
(setvar "OSMODE" OM)
(PRINC)
)
回复 举报