隔了好长时间了,还是有人顶出来;
让我倍感温故知新
可能得往另外2个方面继续延伸下,
1) SSGET相关的系统变量,如提示语禁用的nomut ,LeeMac的选择函数
- ;; ssget - Lee Mac
- ;; A wrapper for the ssget function to permit the use of a custom selection prompt
- ;;
- ;; Arguments:
- ;; msg - selection prompt
- ;; params - list of ssget arguments
- (defun LM:ssget (msg params / sel)
- (princ msg)
- (setvar 'nomutt 1)
- (setq sel (vl-catch-all-apply 'ssget params))
- (setvar 'nomutt 0)
- (if (and sel (not (vl-catch-all-error-p sel)))
- sel
- )
- )
2)各种选择的优劣对比,尤其是选择模式的"CP" "w" "wp" "F",如果在同一个子程序中重复调用叫多次,发现
(ssget "_F" p1 p2 filter)效率最高。
|