日志
LISP|
- 分享 双线等分（e派）
- ;; tt(双线等分) (defun c:tt () (xyp-Start) (xyp-MkLaCo "TEST" 3) (setq int (Uint 7 "" "等分数" int)) (if (and (setq s1 (car (entsel "\n选择: "))) (xyp-etype s1 "line") (setq s2 (car (entsel "\n选择: "))) (xyp-etype s2 "line" ...
- 分享 螺栓轨迹
- (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_en (setq ls_pg (substr(cdr(assoc 2(entget (car ls_en))))1 1)) (if (or(= ls_pg "a")(= ls_pg "b")(= ls_pg "c")(= ls_pg "d")) &n ...
- 分享 常用词库（e派）
- ;; cyck(常用词库) 2015-02-03 (defun c:cyck (/ ilst klst lst0) (xyp-Start) (defun main-pro (/ p1) (while (setq p1 (getpoint "\n基点退出: ")) (xyp-Text 5 p1 t1) ) ) (defun ali1 () (setq tx (nth (atoi ...
- 分享 曲线门
- ;---曲线门主程序 (defun c:11-59a();曲线门与玻璃门 (setvar "cmdecho" 0) (setq os (getvar "osmode")) (setq oldclayer (getvar "clayer")) (setvar "osmode" 0) (getdoorbaspp) (subdemodoor1) (initget "Yes No") (setq mirr (getkword "\n镜射另一片门吗？ N:")) (if ( ...
- 分享 20面体 lisp
- (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.0 (- 0.0 r) 0.0);底点 d1 (list ;21最左点 (- 0 (* r (cos (/ pi 6)))) (- 0 (* r (sin (/ pi 6)))) 0 ...
