快速中心线

lgx9612

快速中心线

lgx9612

不惧spline线和图块

429014673

放个GIF啥意思嘛,请楼主细看版规.

lgx9612

下载地址
http://pan.baidu.com/s/1sjnXbbv

xyp1964

2. ;; tt(快速中心线)
   
3. (defun c:tt ()
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (xyp-line (xyp-9pt ss 4) (xyp-9pt ss 6))
   
7.       (xyp-line (xyp-9pt ss 2) (xyp-9pt ss 8))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

;; tt(快速中心线)<br /> (defun c:tt ()<br />   (if (setq ss (ssget))<br />     (progn<br />       (xyp-line (xyp-9pt ss 4) (xyp-9pt ss 6))<br />       (xyp-line (xyp-9pt ss 2) (xyp-9pt ss 8))<br />     )<br />   )<br />   (princ)<br /> )