可以一次性修改多条线条并指定等长线条
(defun c:x1 (/ EN0 EN0-DATA EN0-LEN INDEX SS SS-LEN TMP-10 TMP-11 TMP-ANG TMP-DATA TMP-EN TMP-PT)
(if (setq ss (ssget '((0 . "LINE"))))
(if (setq en0 (car (entsel "n选择一条基准直线:")))
(progn
(setq en0-data (entget en0))
(setq en0-len (distance (cdr (assoc 10 en0-data)) (cdr (assoc 11 en0-data))))
(setq index 0)
(while (< index (sslength ss))
(setq tmp-en (ssname ss index))
(setq tmp-data (entget tmp-en))
(setq tmp-10 (cdr (assoc 10 tmp-data)))
(setq tmp-11 (cdr (assoc 11 tmp-data)))
(setq tmp-ang (angle tmp-10 tmp-11))
(setq tmp-pt (polar tmp-10 tmp-ang en0-len))
(setq tmp-data (subst (cons 11 tmp-pt) (assoc 11 tmp-data) tmp-data))
(entmod tmp-data)
(entupd tmp-en)
(setq index (1+ index))
)
)
)
)
(princ)
)
相关文章
- 2021-09-08BIM技术丛书Revit软件应用系列Autodesk Revit族详解 [
- 2021-09-08全国专业技术人员计算机应用能力考试用书 AutoCAD2004
- 2021-08-30从零开始AutoCAD 2014中文版机械制图基础培训教程 [李
- 2021-08-30从零开始AutoCAD 2014中文版建筑制图基础培训教程 [朱
- 2021-08-30电气CAD实例教程AutoCAD 2010中文版 [左昉 等编著] 20
- 2021-08-30电影风暴2:Maya影像实拍与三维合成攻略PDF下载
- 2021-08-30高等院校艺术设计案例教程中文版AutoCAD 建筑设计案例
- 2021-08-29环境艺术制图AutoCAD [徐幼光 编著] 2013年PDF下载
- 2021-08-29机械AutoCAD 项目教程 第3版 [缪希伟 主编] 2012年PDF
- 2021-08-29机械制图与AutoCAD [李志明 主编] 2014年PDF下载