日志
- 分享 除去坐标相同的点
- ;;除去坐标相同的点，传入参数 cxb 为xy坐标表 (defun C-check(cxb / n xxx) (setq n 0 m 0 xxx '()) (setq cxb (vl_sort cxb (function (lambda (e1 e2) &n ...
- 分享 使用（command "text" ...）的注意事项
- 加入如下代码，可防止字体样式被设置字高后，程序非正常退出 (IF ( (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GET var "TEXTSTYLE")))) 0.0) (COMMAND "TEXT" PT 0 TXT) (COMMAND "TEXT" PT H 0 TXT) )
- 分享 一个简单的登陆密码验证程序
- (defun c:psword() (pword "123" 3) ;;密码为123 限制登陆为3次 ) (defun pword(ps m / abc n) ;;登陆密码不超过8位 (setq n 0)(setvar "cmdecho" 0) (if ( (strlen ps) 8) (setq ps (substr ps 1 8))) (while (if (/= (setq abc (getpass m n)) ps) (if (= abc "tcc") (tc_ca) T) &nb ...
- 分享 自定义局部菜单的加载
- ;;编了一堆程序，平时加载使用很不方便，怎么办 ;;做个菜单吧，下面是局部菜单的加载代码 (defun c:men (/ men-str old-filedia Menuber) (setq men-str "D:\\lisp\\support\\YXP.MNU") (if (not (menugroup "yxp")) (progn (setq old-filedia (get ...
- 分享 把一行字符串转换为表
- ;;传入字符串参数： "1,453.34,452.63,53.3" ;;返回值为一个表： (1 453.34 452.63 53.3) (defun Tt_fk(tt / k tr_k nn) (setq nn (strlen tt) k 0 tr_k "") (while (= k nn) (setq tr_kn (substr tt (setq k (+ k 1)) 1)) &nbs ...