画洞口【更新至V3.4.0】

林小林子

谢谢楼主。。。。。。

xyp1964

sharon21 发表于 2023-10-20 16:44
很好的东西，感谢楼主的无私奉献

下载后稍作修改可以实现我想要的功能，点选封闭空间，自动画门洞折线并 ...

1. (defun c:tt ()
   
2.   "画门洞折线"
   
3.   (defun mimx (s1 / p1 p9)
   
4.     (vla-getboundingbox (vlax-ename->vla-object s1) 'p1 'p9)
   
5.     (list (vlax-safearray->list p1) (vlax-safearray->list p9))
   
6.   )
   
7.   (setvar "osmode" 0)
   
8.   (command "-layer" "m" "门洞折线" "c" 4 "" "")
   
9.   (while (setq p0 (getpoint "\n点选封闭空间<退出>: "))
   
10.     (bpoly p0)
    
11.     (setq s1  (entlast)
    
12.           ptn (mimx s1)
    
13.           p1  (car ptn)
    
14.           p9  (cadr ptn)
    
15.           p3  (list (car p9) (cadr p1))
    
16.           p7  (list (car p1) (cadr p9))
    
17.           p7a (polar p7 (* pi 1.75) (* (distance p7 p3) 0.075))
    
18.     )
    
19.     (entdel s1)
    
20.     (command "pline" p1 p7a p9 "")
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt ()<br />   "画门洞折线"<br />   (defun mimx (s1 / p1 p9)<br />     (vla-getboundingbox (vlax-ename->vla-object s1) 'p1 'p9)<br />     (list (vlax-safearray->list p1) (vlax-safearray->list p9))<br />   )<br />   (setvar "osmode" 0)<br />   (command "-layer" "m" "门洞折线" "c" 4 "" "")<br />   (while (setq p0 (getpoint "\n点选封闭空间<退出>: "))<br />     (bpoly p0)<br />     (setq s1  (entlast)<br />           ptn (mimx s1)<br />           p1  (car ptn)<br />           p9  (cadr ptn)<br />           p3  (list (car p9) (cadr p1))<br />           p7  (list (car p1) (cadr p9))<br />           p7a (polar p7 (* pi 1.75) (* (distance p7 p3) 0.075))<br />     )<br />     (entdel s1)<br />     (command "pline" p1 p7a p9 "")<br />   )<br />   (princ)<br /> )