求写一个矩形画叉插件

xj6019

烟盒迷唇 发表于 2021-6-20 19:44
组码6的线型你没加载吧

请教个问题  entmake画腰孔（也就是长孔）怎么写代码，一个entmake可以实现吗，圆弧部分怎么处理呀

烟盒迷唇

xj6019 发表于 2021-6-20 21:56
请教个问题  entmake画腰孔（也就是长孔）怎么写代码，一个entmake可以实现吗，圆弧部分怎么处理呀

腰孔不懂是什么，不清楚

p-3-ianlcc

xj6019 发表于 2021-6-20 18:20
(DEFUN C:CRE (/ OLD_LAY SS I S ENT PT LEN)
(vl-load-com)
(setq old_lay (getvar "clayer"))

謝謝分享！
很不錯的工具
使用正常IN CAD2016

chenbh2

(command "RECTANGLE" "non" (setq p1 (getpoint "\n点1:")) "non" (setq p2 (getcorner p1 "\n点2:")) "line" "non" p1 "non" p2 "" "line" "non" (list (car p1) (cadr p2)) "non" (list (car p2) (cadr p1)) "")

999999

chenbh2 发表于 2021-9-13 14:08
(command "RECTANGLE" "non" (setq p1 (getpoint "\n点1:")) "non" (setq p2 (getcorner p1 "\n点2:")) "li ...

顶起顶起，谢谢大神分享实用的代码

reeves7

点击矩形内部任意一点即重新绘制矩形与对角线

夜曲11110

感谢楼主，正在寻找这个

白色微風1991

感謝樓主，正在尋找這個

小毛草

加了默认图层，

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;木枋;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:mf(/ a b c)
(setq a (getpoint "\n点选矩形内部的一点: "))
(command "boundary" a "")
(setq a (ssget "L")
a (ssname a 0)
a (entget a)
b (assoc 10 a)
)
(while b
(setq c (cons (cdr b) c)
a (cdr (member b a))
b (assoc 10 a)
)
)
(setq old_lay (getvar "clayer"))
(if (not (tblsearch "layer" "PUB_HATCH"))
(command "._layer" "m" "PUB_MFHATCH" "c" "8" "" "lt" "DASH" "" "LW"
         "0.05" "" "")
                 )
(setvar "clayer" "PUB_MFHATCH")
(command "line" (nth 0 c) (nth 2 c) ""
"line" (nth 1 c) (nth 3 c) ""
)
(setvar "clayer" old_lay)
)