03 2024 档案

取二维多段线或三维多段线的所有节点

摘要：;取得3dpolyline的所有节点，因3dpolyline节点信息不信在子图元中，而entget函数只能获取POLYLINE主图元数据 ;因此要使用entnext函数依次获取所有VERTEX图元的数据，直到遇到SEQEND图元为止 (defun c:g-polyline-vertex () (se 阅读全文

posted @ 2024-03-30 22:59 遇事修性遇人修心阅读(45) 评论(0) 推荐(0) 编辑

取得当前CAD文件名的lisp程序

摘要：;取得当前CAD文件名 (defun c:g-dwgname () (vl-load-com) (setq document (vla-get-activedocument (vlax-get-acad-object))) (setq dwgFullName (vlax-get-property d 阅读全文

posted @ 2024-03-27 22:31 遇事修性遇人修心阅读(104) 评论(0) 推荐(0) 编辑