CAD二次编程(截面).lsp

(defun c:zl()

; (setQ sblib(getvar"blipmode"))

; (setQ scmde(getvar"cmdecho"))

(setvar"blipmode"0)

(setvar"cmdecho"0)

(setQ mj (getvar"area"))

; (initget 7 ( + 1 2 4))

(setQ hd (getreal "long (mm)="))

; (setQ zz( mj hd 000000272))

; (setvar"cmdecho"scmde)

; (prinl"kg/m=")

; (read"kg/m=")

; (prinl"kg/m=")

(setQ zz( mj hd 000000272))

)

1、使用计算机辅助设计软件打开需要计算的图形。该示例如图所示。

2、输入REG在命令栏中生成一个区域命令，选择所有需要计算面积的图形，然后按空格键确认。

3、然后在命令栏中输入“UNI”，合并所有区域。

4、最后，在命令栏中输入“LI”，选择所有图形。

5、输入完成后，用空格键确定，可以得到图形区域信息。

(defun c:tes ( / &kw1 a1 ent)

 (vl-load-com)

 (princ "\n请选择封闭多段线")

 (if (setq &kw1 (ssget '((0  "LWPOLYLINE") (70  1))))

  (progn

   (setq a1 0)

   (while (setq ent (ssname &kw1 0))

    (setq &kw1 (ssdel ent &kw1) a1 (+ a1 (vlax-curve-GetArea ent)))

   );循环结束

   (princ "\n选择的多段线统计面积为：")

   (princ (rtos ( 0000001 a1 2 3)))

   (princ "平方米")

  )

 )

 (princ)

);这个是autolisp程序，复制到记事本，以lsp为后缀命名，CAD命令appload加载后，命令TES即可使用。

把后面两句

(print (list "总周长=" 总周长))

(print (list "总面积=" 总面积 "平方米" 总亩数 "亩"))

改成

(print (list "总周长=" (rtos 总周长) "米"))

(print (list "总面积=" (rtos 总面积) "平方米" (rtos 总亩数) "亩"))

如果不想在结果中看到那么多引号可以改成

(princ (strcat "\n总周长=" (rtos 总周长) "米"))

(princ (strcat "\n总面积=" (rtos 总面积) "平方米, " (rtos 总亩数) "亩"))

依次选中封闭图形，用命令：list查询

网上有面积标注插件，可以下载

或者将下面的lisp代码复制到记事本里，保存为：面积标注lsp

在cad里加载后，用car运行插件

(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)

)

cad面积计算插件下完后安装在support文件下， *** 作方法如下：

1、首先下载好自己需要的插件，通常格式有LSP、VLX。

2、打开cad的安装路径，找到support文件夹，点击打开。

3、将下载好的插件，复制到support文件夹中。

4、然后打开CAD，输入加载命令“ap”，回车。

5、进入插件加载对话框，直接找到插件的位置，选中插件，点击添加即可。

以上就是关于CAD二次编程(截面).lsp全部的内容，包括:CAD二次编程(截面).lsp、CAD怎样查询多个图形面积、求能计算CAD多个多段线封闭图形相加面积的插件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！