日志
- 分享 [工具]AutoCAD.Lisp等距3D螺旋线（任意曲线的回转表面）
-
无法上传文件，如果想使用请至【 工具 】处下载
![[工具]AutoCAD.Lisp等距3D螺旋线（任意曲线的回转表面）](data/attachment/album/201505/16/120038yskwr7w99qlr4dhd.jpg.thumb.jpg)
- 分享 [函数]AutoCAD.Lisp字符串按单个字符分隔成字符串列表 (str->strlst str split)
- (defun str-strlst (strsplit /strchrlst carstrchrlst cdrstrchrlst n0n pd1strchr0 strlstcarstr ...
- 分享 [函数]AutoCAD.Lisp多行文字过滤掉格式字符 (filterMtext str)
- (vl-load-com) (defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例：(sn:leftnthlst 2 '(1 2 3 4 5 6))；返回表(1 2) ;;;如果输入的n值大于表长返回原表；小于1返回nil (vl-remove nil (mapcar '(lambda (x) (if (= (setq n (1- n)) 0) x nil ) ) lst ...
- 分享 [函数]AutoCAD.Lisp十进制和其他进制的正整数的转换
- (defun Decimal-To (int bit / tmp re bestr) ;;; (Decimal-To 33 2) return "100001" ;;; int必须为正整数 ;;; bit必须大于1，且小于37（最多用到字母Z）。 (defun bestr (int) (if ( int 9) (vl-list-string (list (+ int 55))) (itoa int) ) ) ;_end sub defun (if (and ( bit 1) ...
- 分享 [函数]AutoCAD.Lisp文字样式的新建和修改
- 献给不喜欢用command的坛友们。 有则改之，无则新建 (defun sn:settextstyle ;;; 示例：(sn:settextstyle "123" (list (cons 40 3) (cons 41 1)(cons 50 0)(cons 71 0)) (list "txt.shx" "hztxt.shx")) ;;; 或(sn:settextstyle "123" (list (cons 40 3) (cons 41 1)(cons 50 0) ...
- 分享 [函数]AutoCAD Lisp获取表中的前n个元素和其后的元素，并切分表。
- (defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例：(sn:leftnthlst 2 '(1 2 3 4 5 6))；返回表(1 2) ;;;如果输入的n值大于表长返回原表；小于1返回nil (vl-remove nil (mapcar '(lambda (x) (if (= (setq n (1- n)) 0) x nil ) ) lst ) ) ) (defun sn:rightnthlst (n lst) ;;;返回一个表中的第n个 ...