求洞口线插件

yefei812678 发表于 2024-2-26 11:22:19

使用插件后直接在洞口内点击，然后出来洞口折线

yefei812678 发表于 2024-2-27 11:43:21

本帖最后由 yefei812678 于 2024-2-27 11:44 编辑

bai2000 发表于 2024-2-26 18:19
(defun c:kdk(/entpt p1 p2 p3 p0 len len1 minpoint maxpoint)
            (if (= (tblobjname "layer" "开 ...
我改了下现在就是方向改不过来我要的折线方向和你的折线方向镜像下就好了不知道怎么改，我想要的是我图片上的哪个方向。

(defun c:kd(/entpt p1 p2 p3 p0 len len1 minpoint maxpoint)
            (if (null (tblsearch "ltype" "DASHED")) (command "-linetype" "L" "DASHED" "" ""))
            (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 2.5)(* len 0.8)))
                           (setq p0 (polar p1 (/ pi 2.2)(* len 0.8)))
                     )
                     (entmake (list'(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")
                                                            (cons 90 3) (cons 10 p1) (cons 10 p0) (cons 10 p3) ))
            (command "CHPROP" (last_ent ent) """lt" "DASHED" "C" "8""s" "1" "")
            )
            (princ))

bai2000 发表于 2024-2-26 18:19:19

(defun c:kdk(/entpt 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))

yefei812678 发表于 2024-2-27 08:39:23

本帖最后由 yefei812678 于 2024-2-27 08:44 编辑

bai2000 发表于 2024-2-26 18:19
(defun c:kdk(/entpt p1 p2 p3 p0 len len1 minpoint maxpoint)
(if (= (tblobjname "layer" "开 ...
谢谢
能不能不建图层就设置为当前图层，折线靠右边颜色为250线型为DASHED比例为1

kzd2004 发表于 2024-2-26 12:49:36

稍微懂一点的人应该知道这个很简单，关键是你自己要学习才行。

yefei812678 发表于 2024-2-26 12:54:43

kzd2004 发表于 2024-2-26 12:49
稍微懂一点的人应该知道这个很简单，关键是你自己要学习才行。

问题自己没有学过啊！

飞雪神光 发表于 2024-2-26 13:19:56

点击后用bo就能获得一个封闭区域就能得到包围盒的四个点另一个方法就是用grread 计算得到四个点更复杂一些

yefei812678 发表于 2024-2-26 13:40:58

飞雪神光发表于 2024-2-26 13:19
点击后用bo就能获得一个封闭区域就能得到包围盒的四个点另一个方法就是用grread 计算得到四个点更复杂一 ...

帮忙弄一下嘛？谢谢

kzd2004 发表于 2024-2-26 13:43:25

飞雪神光发表于 2024-2-26 13:19
点击后用bo就能获得一个封闭区域就能得到包围盒的四个点另一个方法就是用grread 计算得到四个点更复杂一 ...

因为这个洞是矩形，所以我的思路是点击对角线两点得到四个点坐标。{:1_1:}

yefei812678 发表于 2024-2-26 13:54:08

飞雪神光发表于 2024-2-26 13:19
点击后用bo就能获得一个封闭区域就能得到包围盒的四个点另一个方法就是用grread 计算得到四个点更复杂一 ...

能不能帮忙做一个谢谢

xiao1984 发表于 2024-2-26 14:24:34

yefei812678 发表于 2024-2-26 13:54
能不能帮忙做一个谢谢

这里不是有吗http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=189224&pid=967865&fromuid=7331256

yefei812678 发表于 2024-2-26 14:30:26

xiao1984 发表于 2024-2-26 14:24
这里不是有吗http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=189224&pid=967865&fromui ...

这个是两点的那种还是有点麻烦，两点的话我还不如自己画出来

ssyfeng 发表于 2024-2-26 15:31:08

yefei812678 发表于 2024-2-26 14:30
这个是两点的那种还是有点麻烦，两点的话我还不如自己画出来

有志气，靠天靠地不如靠自己，加油！

页: [1] 2

明经CAD社区's Archiver

求洞口线插件