谁能写燕秀的这两个功能?

wowan1314

院长的伪源码，需要他函数库支持。对于只求功能的人来说。区别不大。对于想学习的人来说价值不大。

xyp1964

2. ;; 标注实体或选择集中心线
   
3. ;; 伪源码需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (defun aaa (s1)
   
7.     (xyp-line (xyp-get-9pt s1 2) (xyp-get-9pt s1 8))
   
8.     (xyp-line (xyp-get-9pt s1 4) (xyp-get-9pt s1 6))
   
9.   )
   
10.   (xyp-MkLaCo "中心线" 1)
    
11.   (setq ukw (UKWORD 7 "1 2" "处理方式: 1-实体/2-选择集" ukw))
    
12.   (while (setq ss (ssget))
    
13.     (cond ((= ukw "1") (mapcar 'aaa (xyp-ss2list ss)))
    
14.           ((= ukw "2") (aaa ss))
    
15.     )
    
16.   )
    
17.   (CMDLA1)
    
18. )
    

;; 标注实体或选择集中心线<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (defun aaa (s1)<br />     (xyp-line (xyp-get-9pt s1 2) (xyp-get-9pt s1 8))<br />     (xyp-line (xyp-get-9pt s1 4) (xyp-get-9pt s1 6))<br />   )<br />   (xyp-MkLaCo "中心线" 1)<br />   (setq ukw (UKWORD 7 "1 2" "处理方式: 1-实体/2-选择集" ukw))<br />   (while (setq ss (ssget))<br />     (cond ((= ukw "1") (mapcar 'aaa (xyp-ss2list ss)))<br />           ((= ukw "2") (aaa ss))<br />     )<br />   )<br />   (CMDLA1)<br /> )<br />