1、首先需要点击打开需要编辑的CAD图纸,唯此升进入到编辑首页中。
2、以五边形为例来说明 *** 作方法。
3、在命令行上输入“ PE”。
4、选择任一行,然后选择命令指老“ J”,
5、您需要将它们全部选中,然后单击“空格键扒谈”两次。
6、单击该行以显示以下效果,即链接成功。
命令HB合并多段线
(defun c:hb (/ @myL @lpNum @etLst @@ent @ptLst)(setq @myL (ssget "i" '((0 . "LINE,LWPOLYLINE"))))
将创建已经选择的线(多段线或者直线)的选择集
(setq @lpNum 0) 为循环计数参数赋值
(repeat (sslength @myL) 选择集包含几个对象就循环几次
(setq @etLst (append @etLst (list (ssname @myL @lpNum)))
逐个提取选择集中的图元名并储存到表@etLst中
@lpNum (1+ @lpNum) 每循环一次循环计数参数+1
)
)
(foreach @@lpet @etLst 历遍表@etLst中每一个原子,以@@lpet代替原子
(progn
磨举 (setq @@ent (entget @@lpet)) 将每个乎野图元的详细列表赋值到@@ent中
(foreach @@2lpe @@ent
(if (= (car @@2lpe) 10) 如果子表中第一个原子为10
(setq @ptLst (append @ptLst (list @@2lpe))) 将子表列入@ptLst
)
)
(entdel @@lpet) 删除已提取过点的对象
)
)
(entmake (append (list 通过点表创建新的多段线
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length @ptLst))
)
瞎顷碧 @ptLst
)
)
(princ)
)
=====分割线========================================
顺带一说。。。你为何不用CAD自带的pedit命令?
pedit(使用CAD原生的ACAD.PGP可简化为PE命令)→M→选择所有需要合并的线→(若有不含多段线的元素)按Y转换所有选择对象为多段线→J合并→空格或者回车或者ESC退出
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)