[工具]AutoCAD.Lisp等距3D螺旋线（任意曲线的回转表面） 2015-05-16

无法上传文件，如果想使用请至【 工具 】处下载

(2314)次阅读|(0)个评论

[函数]AutoCAD.Lisp字符串按单个字符分隔成字符串列表 (str->strlst str split) 2014-01-27

(defun str->strlst (str  split     /  strchrlst      carstrchrlst    ...

(1944)次阅读|(1)个评论

[函数]AutoCAD.Lisp多行文字过滤掉格式字符 (filterMtext str) 2013-09-17

(vl-load-com) (defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例：(sn:leftnthlst 2 '(1 2 3 4 5 6))；返回表(1 2) ;;;如果输入的n值大于 ...

(1519)次阅读|(0)个评论

[函数]AutoCAD.Lisp十进制和其他进制的正整数的转换 2013-09-11

(defun Decimal-To (int bit / tmp re bestr) ;;; (Decimal-To 33 2) return "100001" ;;; int必须为正整数 ;;; bit必须大于1，且小于37（最多用到字母Z）。 ...

(1426)次阅读|(0)个评论

[函数]AutoCAD.Lisp文字样式的新建和修改 2013-01-29

献给不喜欢用command的坛友们。 有则改之，无则新建 (defun sn:settextstyle ;;; 示例：(sn:settextstyle "123" (list (cons 40 3) (cons 41 ...

(1969)次阅读|(0)个评论

[函数]AutoCAD Lisp获取表中的前n个元素和其后的元素，并切分表。 2012-12-27

(defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例：(sn:leftnthlst 2 '(1 2 3 4 5 6))；返回表(1 2) ;;;如果输入的n值大于表长返回原表； ...

(1750)次阅读|(2)个评论

查看更多