CAD外挂软件,怎样在模板上画一圆孔并有标签

1、打开CAD外挂软件，在其它标注都完成后，才可以进行圆孔标记。

2、首先，选择模板上其中一个圆，开启捕捉后使用直线命令使该圆分成4等分。

3、然后，选择填充命令BHatch，修改图库样式和样例选择好标注的颜色。点击确定后，该部分被填充完毕，即完成一个圆孔的标签。其它圆孔可以通过插入块得到或直接复制粘贴。

1。单个不规则的图形可以先转化为pl线，在闭合，然后li一下就出来了 或者ch看属性里就有的。

2。若干个不规则的图形求总面积，需要多加一步，先转化pl线然后闭合，然后填充所有图形（h），最好把填充图案填在另一个图层，然后关闭其他所有图层，只留填充图案的图层，然后全选所有填充图案。看属性 就能看到总面积了

;单独做一个程序amset设置字高，再把单位改一下就行了

(defun C:amset()

(setq height (getdist "\n请输入文字高度:"))

(PRINC))

(defun C:am (/ ss l i totalarea ename obj entarea)

(if (setq ss (ssget))

(progn

(vl-load-com)

(setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object))))

(setq l (sslength ss) i 0 totalarea 0 totlength 0)

(repeat l

(setq ename (ssname ss i))

(setq obj (vlax-ename->vla-object ename))

;;(vlax-dump-object obj T)

(if (vlax-property-available-p obj "area")

(setq totalarea (+ (vlax-get-property obj 'area) totalarea))

)

(if (= (cdr (assoc 0 (entget ename))) "MLINE")

(setq totlength (+ totlength (ml-length ename)))

(setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendparam ename))))

)

(setq i (1+ i))

)

(setq text1 (strcat "面积为: " (rtos (/ totalarea 1000000) 2 4) "平方米")

text2 (strcat "长度为: " (rtos (/ totlength 1000) 2 4) "米")

)

(if (setq insertpt (getpoint "\n请输入文字插入点: "))

(if height

(setq insertp1 (vlax-3d-point insertpt)

insertp2 (vlax-3d-point (polar insertpt ( 15 Pi) ( 15 height)))

textobj1 (vla-addtext modelspace text1 insertp1 height)

textobj2 (vla-addtext modelspace text2 insertp2 height)

)

)

)

)

)

)

(defun ml-length (ename / j d ptlist)

(foreach n (entget ename)

(if (= (car n) 11)

(setq ptlist (cons (cdr n) ptlist))

)

)

(reverse ptlist)

(setq j 0 d 0)

(repeat (1- (length ptlist))

(setq d (+ d (distance (nth j ptlist) (nth (1+ j) ptlist))))

(setq j (1+ j))

)

d

)

以上就是关于CAD外挂软件,怎样在模板上画一圆孔并有标签全部的内容，包括:CAD外挂软件,怎样在模板上画一圆孔并有标签、求CAD连续计算面积的方法或插件、修改CAD测量面积、长度的LSP代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！