正在加载...
申明:内容来自用户上传,著作权归原作者所有,如涉及侵权问题,请点击此处联系,我们将及时处理!
0人已收藏
0人已打赏
0人已点赞
分享
全部回复(1 )
主题
回复
粉丝
电气工程原创版块
2.19 万条内容 · 555 人订阅
阅读下一篇
求建筑设计全套视频。。。。
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复(1 )
只看楼主 我来说两句 抢板凳(setq ss (cadr (ssgetfirst)))
(sssetfirst nil nil)
(setq errorTemp *error*
*error* myError
)
(command "_.undo" "_begin")
(if (and (= nil ss) (= nil (setq ss (st:FiltSel))))
(print "未选择对象!")
(progn
(princ "\n角度:")
(setq getst (getreal))
(cond ((/= getst nil)
(st:Change ss getst)
)
(t
(st:Change ss 0)
)
)
)
)
(command "_.undo" "_end")
(setq *error* errorTemp)
(princ)
)
(defun st:Change (ss inprot / ct st)
(setq ct 0
;st nil
)
(if (/= nil ss)
(progn
(repeat (sslength ss)
(setq st (ssname ss ct))
(ChangeTextRotation (entget st) inprot)
;(princ (entget st))
;(princ ct)
(setq ct (+ ct 1))
回复 举报