随笔分类 - AutoLisp

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

摘要：;取得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) 编辑

autolisp画多段线方法之一

摘要：(defun c:ppll() (setq points (list (list 0 0) (list 10 10) (list 20 20))) (command "pline") (foreach n points (command (strcat (rtos (car n) 2 3) "," 阅读全文

posted @ 2022-09-02 11:25 遇事修性遇人修心阅读(374) 评论(0) 推荐(0) 编辑

通过lisp代码在选项文件设置中添加一个支持文件搜索路径

摘要：(getenv "ACAD") 这个系统变量返回--支持文件搜索路径下面的所有路径，(setenv "ACAD" "路径") 设置系统变量为新路径，由于这个变量添加会覆盖已有的路径，所有必须用已有路径再加上新的，否则只有一个新加的以前的会的丢失。多个路径用英文分号隔开（;）代码：(setenv "A 阅读全文

posted @ 2022-08-26 21:15 遇事修性遇人修心阅读(337) 评论(0) 推荐(0) 编辑