本帖最后由 wowan1314 于 2012-5-24 00:38 编辑
院长的伪源码，需要他函数库支持。对于只求功能的人来说。区别不大。对于想学习的人来说价值不大。
;; 标注实体或选择集中心线
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(CMDLA0)
(defun aaa (s1)
(xyp-line (xyp-get-9pt s1 2) (xyp-get-9pt s1 8))
(xyp-line (xyp-get-9pt s1 4) (xyp-get-9pt s1 6))
)
(xyp-MkLaCo "中心线" 1)
(setq ukw (UKWORD 7 "1 2" "处理方式: 1-实体/2-选择集" ukw))
(while (setq ss (ssget))
(cond ((= ukw "1") (mapcar 'aaa (xyp-ss2list ss)))
((= ukw "2") (aaa ss))
)
)
(CMDLA1)
)