日志

分享 生成PL多段线长度表 学习CAOIN版主

jicqj 2012-8-12 23:10

;;第一句来自caoin版主 (defun C:tt (/ EN OBJ LST LST_L p0 p1 L) (setq LST_L (LIST )) (if (and (setq EN (entsel "\n选择多选线: ")) (setq EN (car EN)) (setq OBJ (vlax ...

1347 次阅读|1 个评论 热度 2

分享 表排序

caoyin 2012-8-11 01:02

可应用于点集排序 要求见： http://bbs.mjtd.com/thread-95905-1-1.html (defun PointList-sort (PNTLST / REC) (defun REC (A B);;递归 (cond ((equal (car A) (car B) 1E-4) (REC (cdr A) (cdr B))) (T ( (car A) (car B))) &nbs ...

2765 次阅读|3 个评论 热度 11

分享 风管分节程序

jicqj 2012-8-5 18:56

;;;作者jicqj 2012.5于龙岩 (setq myjuli 1160) (defun c:q1( / myjuliT) (setq myjuli (if (setq myjuliT (GETINT (strcat "请输入标准节距离" (itoa myjuli) "\n" ))) myjuliT myjuli ) ) ) (defun c:q( / pt0 pt1 fuzz pt0temp pt1temp mybeishu strT) ...

1729 次阅读|0 个评论 热度 3

分享 计算线加总长度

jicqj 2012-8-5 18:50

;;;----------------------------------------------------- ;;;计算线加总长度 ;;;----------------------------------------------------- (defun C:zz (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) (setq N 0) (repeat (s ...

1441 次阅读|1 个评论 热度 4

本页有 6 篇日志因作者的隐私设置或未通过审核而隐藏