xj6019 发表于 2021-6-20 21:56:03

本帖最后由 xj6019 于 2021-6-20 22:00 编辑

烟盒迷唇 发表于 2021-6-20 19:44
组码6的线型你没加载吧
请教个问题entmake画腰孔（也就是长孔）怎么写代码，一个entmake可以实现吗，圆弧部分怎么处理呀

烟盒迷唇 发表于 2021-6-21 08:47:15

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

腰孔不懂是什么，不清楚

p-3-ianlcc 发表于 2021-6-21 13:46:46

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 发表于 2021-9-13 14:08:04

(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 发表于 2022-6-4 18:23:26

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

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

reeves7 发表于 2022-6-5 09:15:00

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

夜曲11110 发表于 2023-2-14 22:46:51

感谢楼主，正在寻找这个

白色微風1991 发表于 2023-2-15 17:00:42

感謝樓主，正在尋找這個

小毛草 发表于 2023-2-17 09:08:14

加了默认图层，

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;木枋;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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)
)
页: 1 2 [3]
查看完整版本: 求写一个矩形画叉插件