两个选择集合并通用函数，帮我看看那错啦，
 

两个选择集合并通用函数，帮我看看那错啦，
www.dimcax.com
两个选择集合并通用函数，帮我看看那错啦，
(deufn ko-sssum (ps1 ps2)
(cond
((and (= (type ps1) 'pickset) (= (type ps2) 'pickset)) (command "._select" ps1 ps2 "") (ssget "p"))
((and (or (= (type ps1) 'pickset) (= (type ps2) 'pickset)) (not (= (type ps1) (type ps2)))) (if (= ps1 nil) (command "._select" ps2 "")) (if (= ps2 nil) (command "._select" ps1 "")))
((and (null ps1) (null ps2)) (ssadd))
)
)
d
(defun ss_sum(ss1 ss2)
(setq i 0)
(repeat (sslength ss1)
(ssadd (ssname ss1 i) ss2)
(setq i (1+ i))
)
ss2
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
你第一个函数就错误了
deufn -> defun
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
猫哥
d
(defun ko-sssum (ps1 ps2)
(cond
((and (= (type ps1) 'pickset) (= (type ps2) 'pickset)) (command "._select" ps1 ps2 "") (ssget "p"))
((and (or (= (type ps1) 'pickset) (= (type ps2) 'pickset)) (not (= (type ps1) (type ps2))))
(if (= ps1 nil)
(progn
(command "._select" ps2 "")
(ssget "p")
)
)
(if (= ps2 nil)
(progn
(command "._select" ps1 "")
(ssget "p")
)
)
)
((and (null ps1) (null ps2)) (ssadd))
)
)
d
楼上太水
需要解密fas、vlx请联系本人。