双线等分（e派） 2016-09-07

;; tt(双线等分) (defun c:tt ()   (xyp-Start)   (xyp-MkLaCo "TEST" 3)   (setq int (Uint 7 "" "等分数" int))   (if (and (setq ...

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

螺栓轨迹 2016-09-07

(defun c:luo(/ ls_en ls_pg ls_bj ls_pt1 ls_pt2 ls_pt3 ls_dqst ls_zdst)   (setq ls_en  (entsel "\n请选取需要三维的螺栓"))   (while ls ...

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

常用词库（e派） 2016-09-07

;; cyck(常用词库) 2015-02-03 (defun c:cyck (/ ilst klst lst0)   (xyp-Start)   (defun main-pro (/ p1)     (while (setq p1 (get ...

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

曲线门 2016-09-07

;--->曲线门主程序 (defun c:11-59a();曲线门与玻璃门 (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer") ...

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

20面体 lisp 2016-09-07

(defun c:1-20() (setq r (getint "\n球半径<10>：")) (if (null r) (setq r 10.0)) (setq  d (list 0.0 0.0 0.0);球心 d0 (list 0 ...

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

20面体 lisp 2016-09-07

(defun c:1-20() (setq r (getint "\n球半径<10>：")) (if (null r) (setq r 10.0)) (setq  d (list 0.0 0.0 0.0);球心 d0 (list 0 ...

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

查看更多