CAD有个插件,求面积用的,他会自动形成一个多段想闭合线。可以提供一下...

发布网友 发布时间：2022-04-23 19:49

我来回答

共2个回答

热心网友 时间：2022-04-12 20:58

不收你的钱，给你一个：
(defun c:car ( / o1 ipt opp parea)
(setq clyer(getvar"clayer"))
(command "layer" "m" "范围线" "")
(command "layer" "c" "2" "范围线" "")
(command "color" "bylayer")
(setq ipt (getpoint "\n 选择内部点: "))
(command "-Boundary" ipt"" "")
(setq o1 (entlast))
(redraw o1 3)
(command "area" "O" "L")
(setq opp (getvar "area"))
(initget 1)
(setq parea(getpoint"\n 选择面积标注位置"))
(command "layer" "m" "area text" "")
(command "layer" "c" "81" "area text" "")
(command "color" "bylayer")
(initget 1)
(command "text" parea "1"0 (rtos opp 2 3)) "这个三是位数"
(setq elast(entlast))
(command "scale" elast"" parea)
(setvar"clayer"clyer)
)
把上面内容复制到记事本中，保存为：求面积.lsp
在CAD中加载后，运行命令：car
临时用直接复制到命令行即可

热心网友 时间：2022-04-12 22:16

是CAD批量计算标注面积的软件吗？我有啊