钢管柱底若干筋板

/db_自贡黄明儒_

我有一根倾斜放置的钢管，在柱底沿钢管布置了若干筋板，每个筋板的形状可能不一样，于是我在每块筋板上取3点，建立UCS，然后就可以标注每块筋板的尺寸了。其实也很不方便出图、下料，我需要在WCS下生成图,代码如下：

1. 
   

复制代码

2. (defun EntmakeLine (p1 p2)
   
3.   (entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
   
4. )
   
5. (defun C:w2 (/ A E L P1 P2)
   
6.   (while (setq e (car (entsel)))
   
7.     (setq p1 (vlax-curve-getStartPoint e))
   
8.     (setq p2 (vlax-curve-getEndPoint e))
   
9.     (setq p1 (trans p1 e 1))
   
10.     (setq p2 (trans p2 e 1))
    
11.     (setq L (cons (list p1 p2) L))
    
12.   )
    
13.   (command "._ucs" "_W")
    
14.   (mapcar '(lambda(a) (apply 'EntmakeLine a)) L)
    
15.   (princ)
    
16. )
    
17. 
    

(defun EntmakeLine (p1 p2)<br />   (entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))<br /> )<br /> (defun C:w2 (/ A E L P1 P2)<br />   (while (setq e (car (entsel)))<br />     (setq p1 (vlax-curve-getStartPoint e))<br />     (setq p2 (vlax-curve-getEndPoint e))<br />     (setq p1 (trans p1 e 1))<br />     (setq p2 (trans p2 e 1))<br />     (setq L (cons (list p1 p2) L))<br />   )<br />   (command "._ucs" "_W")<br />   (mapcar '(lambda(a) (apply 'EntmakeLine a)) L)<br />   (princ)<br /> )<br /> <br />

HLCAD

可以直接生成空间多段线的

xk15c

哇，好厉害
空间自动添加

love_cq

看不明白，有动图演示下吗？