社区 › AutoLISP/Visual LISP 编程技术 › 小菜版选择易，欢迎使用并提出完善建议

xotoo 发表于 2011-10-29 11:28:10

另外
1.23版进行选择的时候
在调出界面的那一瞬间
最右边的那一整列下拉框会有一个短暂的闪烁
前面的版本好像没有这个问题

有时死机似乎就是那个闪烁闪不过去

小菜123 发表于 2011-10-29 13:51:38

1.23比1.22没有什么改动，1.22正常么？
下面这个函数是1.22版本的，1.23改动的函数只有这一个
试试先加载1.23，然后再加载下面这个函数，看问题是否仍然存在
(defun cltpf ( code strtmp entl flag / tmp )
   (cond ((and (= code 2) (= (ss-dxf 0 entl) "INSERT")) (setq strtmp (str_subst "`*" "*" strtmp)))
         ((and (= code 1) (or (= (ss-dxf 0 entl) "TEXT") (= (ss-dxf 0 entl) "MTEXT")))
               (foreach tmp '(("`*" "*") ("`@" "@") ("`#" "#") ("`?" "?") ) (setq strtmp (str_subst (car tmp) (cadr tmp) strtmp)))
             (if flag (setq strtmp (str_subst "\\\"" "\"" strtmp)))
         );;end code=1
   );;cond
strtmp
);;defun

669423907 发表于 2011-10-29 23:14:24

超酷的高作！

690994 发表于 2011-10-31 17:21:29

如果能透明使用就更好了

小菜123 发表于 2011-10-31 20:51:14

在CAD的命令中是可以透明使用的。
在其它lisp中透明使用，没法支持。
可以先用选择易过滤出需要的实体，在其它程序中要求选择时用“p"响应，效果相同。

hhhlike 发表于 2011-11-1 11:37:28

这个一定要顶

mj0000 发表于 2011-11-1 12:25:04

有个奇怪的问题，把Sel_Lay函数名称都改成Sub-Sys-Sel-Lay（对话框那里的三个Sel_Lay没改），选择线型的时候cad会崩溃，改成Sel-Lay或者Sub-Sel-Lay，就没问题，难道cad还限制名称么？用的是CAD2008版本

mj0000 发表于 2011-11-1 12:29:36

另外，lay_lst函数有有两个lay_lst，一个参数，一个局部变量，后面那个局部变量应该删掉吧

mj0000 发表于 2011-11-1 13:08:00

崩溃的原因找到了，("*" "所有图层") ("*" "所有样式") ("*" "所有线型")后面的append函数删掉就可以了。有这个cad可能会崩溃。

小菜123 发表于 2011-11-1 13:17:00

局部变量lay_lst是多余的，删掉。
哪个append函数删掉就可以？不太明白

查看完整版本: 小菜版选择易，欢迎使用并提出完善建议