软件简介： 2004浙S1、S2、S3化粪池 附件名：20083311206946883386.rar 文件大小：13672K (升级VIP 如何赚取土木币)
2004浙S1、S2、S3化粪池
附件名：20083311206946883386.rar
文件大小：13672K
(升级VIP 如何赚取土木币)
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)
回复
3楼
下载收藏，谢了
回复
4楼
缺页啊 S2只到35页，S3屋顶水箱的根本就没有么～:Q
回复
