求洞口线插件

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(/ ent pt p1 p2 p3 p0 len len1 minpoint maxpoint)
(if (= (tblobjname "layer" "开 ...

  我改了下现在就是方向改不过来  我要的折线方向和你的折线方向镜像下就好了不知道怎么改，我想要的是我图片上的哪个方向。

   (defun c:kd(/  ent  pt 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(/  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))

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

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

bai2000 发表于 2024-2-26 18:19
(defun c:kdk(/ ent pt 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 计算得到四个点更复杂一 ...

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

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?mo ... amp;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
这个是两点的那种还是有点麻烦，两点的话我还不如自己画出来

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

账号		自动登录	找回密码
密码			注册

求洞口线插件

本帖子中包含更多资源