正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复（2 ）
主题
回复
粉丝
给排水工程施工图
24.13 万条内容 · 329 人订阅
阅读下一篇
图纸简介： 30方浆砌石水池图 附件名：20083311206930124403.rar 文件大小：188K (升级VIP 如何赚取土木币)
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复（2 ）
只看楼主 我来说两句抢地板回复 举报
(defun c:YYZC1 (/ ssg py n lst chpt)
(defun chpt (pt y)
(cons (car pt)
(polar (list (cadr pt) y) (* 0.25 PI) (- (caddr pt) y))
)
)
(setq ssg (ssget (list (cons 0 "LINE")))
py (cadr (getpoint "\nBase Point:"))
n -1
)
(while (< (setq n (1+ n)) (sslength ssg))
(setq lst (entget (ssname ssg n)))
(setq lst (subst (chpt (assoc 10 lst) py) (assoc 10 lst) lst))
(setq lst (subst (chpt (assoc 11 lst) py) (assoc 11 lst) lst))
(entmod lst)
)
(princ)
)
(princ "\n\tType YYZC1 to start!!")
(princ)
回复 举报