怎么实现点击封闭图形内部，自动形成开洞线

bingshuier

点击左边的封闭图形，形成开洞符号，最好能检测所点击的图形是否为封闭的图形

qazxswk

a405692168 发表于 2023-10-26 20:53
谢谢，大神这个好用，有空的时候，能增加个功能：自动把开洞线固定到"开洞线"图层上吗？

(defun c:11(/  ent  pt p1 p2 p3 p0 len len1 minpoint maxpoint)
(if (= (tblobjname "layer" "开洞线") nil)
(entmake (list'(0 . "layer")'(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord")
(cons 2 "开洞线") '(70 . 0) '(62 . 8)
)))
(while
(setq pt (getpoint "\n在闭合区域拾取一点<退出>:"))
(vl-cmdf "-boundary" pt "")
(setq ent (entlast))
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint) ;获得包围盒
(setq p1(vlax-safearray->list minpoint) p3(vlax-safearray->list maxpoint)) ;盒最小与最大点
(entdel ent)
(setq p2 (list (car p1)(cadr p3)))
(setq len (distance p1 p2))
(setq len1 (distance p3 p2))
(if (< len len1)
(setq p0 (polar p1 (/ pi 3)  (* len 0.8)))
(setq p0 (polar p1 (/ pi 2.2)  (* len 0.8)))
)
(entmake (list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 8 "开洞线")
(cons 90 3) (cons 10 p1) (cons 10 p0) (cons 10 p3) ))
)
(princ))

qazxswk

我的不需要配合任何工具箱的。可以试试
(defun c:11(/  ent  pt p1 p2 p3 p0 len len1 minpoint maxpoint)
(while
(setq pt (getpoint "\n在闭合区域拾取一点<退出>:"))
(vl-cmdf "-boundary" pt "")
(setq ent (entlast))
(vla-getboundingbox (vlax-ename->vla-object ent) 'minpoint 'maxpoint) ;获得包围盒
(setq p1(vlax-safearray->list minpoint) p3(vlax-safearray->list maxpoint)) ;盒最小与最大点
(entdel ent)
(setq p2 (list (car p1)(cadr p3)))
(setq len (distance p1 p2))
(setq len1 (distance p3 p2))
(if (< len len1)
(setq p0 (polar p1 (/ pi 3)  (* len 0.8)))
(setq p0 (polar p1 (/ pi 2.2)  (* len 0.8)))
)
(entmake (list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 62 8)
(cons 90 3) (cons 10 p1) (cons 10 p0) (cons 10 p3) ))
)
(princ))

xyp1964

1. (defun c:tt ()
   
2.   "tt(开洞线)"
   
3.   (xyp-MkLaCo "开洞线" 8)
   
4.   (while (setq p0 (getpoint "\n选择内部a点<退出>: "))
   
5.     (bpoly p0)
   
6.     (setq s1  (entlast)
   
7.           ptn (xyp-9ptList s1)
   
8.           p1  (car ptn)
   
9.           p7  (nth 6 ptn)
   
10.           p9  (last ptn)
    
11.           p7a (polar p7 (* pi 1.75) (* (distance p1 p9) 0.1))
    
12.           s2  (xyp-Pline (list (car ptn) p7a (last ptn)) nil)
    
13.     )
    
14.     (entdel s1)
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt ()<br />   "tt(开洞线)"<br />   (xyp-MkLaCo "开洞线" 8)<br />   (while (setq p0 (getpoint "\n选择内部a点<退出>: "))<br />     (bpoly p0)<br />     (setq s1  (entlast)<br />           ptn (xyp-9ptList s1)<br />           p1  (car ptn)<br />           p7  (nth 6 ptn)<br />           p9  (last ptn)<br />           p7a (polar p7 (* pi 1.75) (* (distance p1 p9) 0.1))<br />           s2  (xyp-Pline (list (car ptn) p7a (last ptn)) nil)<br />     )<br />     (entdel s1)<br />   )<br />   (princ)<br /> )

ZZXXQQ

1、选择内部一点；
2、调用BOUNDY函数建立封闭线条；
3、取得最后的实体；
4、取得最后实体的点集；
5、判断是否是矩形；
6、求出左下和右上点及计算折线点；
7、根据计算出的坐标点画出洞口。

流动的清泉

这个功能不错，我用画窗户的开启线

Nico

对象点画线比较快，点区域会慢吧

linjian257

计算折线点,我就缺少这个折线点的公式了，不然我也能写出来了！

yaya-54

同求，有这样的程序不？

渠辉

BOUNDY函数怎么用

sharon21

同求，有哪个大神可以帮忙写下这个源码

liunian0524

论坛有源码，可自助搜索