日志

分享 风管分节程序

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) ...

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

分享 计算线加总长度

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 ...

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

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