关于CAD自动生成程序

大灰熊

大师们能不能点一下闭合的多线段，自动生成那图纸中的两个孔，上左60mm,上右160，左160mm左下60mm,下左160mm下右60mm,右上60mm右下160mm（两个孔之间到边的距离）.长度与宽度中间都是350mm左右自动计算的,边到孔的距离是8.5mm,孔径是@4.6mm。小弟在此真心的请求大师们帮我编个LISP程序！谢谢了！

429014673

做块，复制就得了

大灰熊

问题是尺寸都不一样的长度与宽度！

荒野孤行

初学lisp？

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; 边界插块
   
3. (defun c:tt ()
   
4.   (xyp-CMDLA0)
   
5.   (princ "\n选择封闭多段线: ")
   
6.   (if (setq ss (ssget '((0 . "*polyLINE"))))
   
7.     (progn
   
8.       (setq i -1)
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (setq ptn (xyp-get-Vertexs s1 0)
    
11.               ptn (xyp-Ptn2CCW (cons (last ptn) ptn))
    
12.               j 0
    
13.               lst '()
    
14.         )
    
15.         (while (and (setq p1 (nth j ptn))
    
16.                     (setq p2 (nth (setq j (1+ j)) ptn))
    
17.                )
    
18.           (setq rad  (angle p1 p2)
    
19.                 p1a  (polar p1 rad 160)
    
20.                 p2a  (polar p2 rad -60)
    
21.                 nn   (+ (fix (/ (distance p1a p2a) 350)) 1)
    
22.                 ptn1 (xyp-DivPt2Pt p1a p2a nn)
    
23.                 lst  (cons p2a (append ptn1 (cons p1a lst)))
    
24.           )
    
25.         )
    
26.         (xyp-Group0)
    
27.         (foreach pt lst
    
28.           (setq p1 (vlax-curve-getclosestpointto s1 pt)
    
29.                 p2  (xyp-Get-FaxianAtPoint s1 p1 8.5)
    
30.                 ang (xyp-r2d (xyp-Get-AngleAtPoint s1 p1))
    
31.           )
    
32.           (xyp-InsertBlock p2 "abc" 1 1 1 ang)
    
33.         )
    
34.         (xyp-Group1)
    
35.       )
    
36.     )
    
37.   )
    
38.   (xyp-CMDLA1)
    
39. )
    

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url];; 边界插块<br /> (defun c:tt ()<br />   (xyp-CMDLA0)<br />   (princ "\n选择封闭多段线: ")<br />   (if (setq ss (ssget '((0 . "*polyLINE"))))<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (setq ptn (xyp-get-Vertexs s1 0)<br />               ptn (xyp-Ptn2CCW (cons (last ptn) ptn))<br />               j 0<br />               lst '()<br />         )<br />         (while (and (setq p1 (nth j ptn))<br />                     (setq p2 (nth (setq j (1+ j)) ptn))<br />                )<br />           (setq rad  (angle p1 p2)<br />                 p1a  (polar p1 rad 160)<br />                 p2a  (polar p2 rad -60)<br />                 nn   (+ (fix (/ (distance p1a p2a) 350)) 1)<br />                 ptn1 (xyp-DivPt2Pt p1a p2a nn)<br />                 lst  (cons p2a (append ptn1 (cons p1a lst)))<br />           )<br />         )<br />         (xyp-Group0)<br />         (foreach pt lst<br />           (setq p1 (vlax-curve-getclosestpointto s1 pt)<br />                 p2  (xyp-Get-FaxianAtPoint s1 p1 8.5)<br />                 ang (xyp-r2d (xyp-Get-AngleAtPoint s1 p1))<br />           )<br />           (xyp-InsertBlock p2 "abc" 1 1 1 ang)<br />         )<br />         (xyp-Group1)<br />       )<br />     )<br />   )<br />   (xyp-CMDLA1)<br /> )<br />