输入点或字符串
本帖最后由 jack093 于 2013-9-18 09:46 编辑『原创函数』
输入点或字符串
用法：
;(dlx:getpoint_str '(NIL 5 0) t)
(setq pt(dlx:getpoint_str '(NIL 5 0) t))
(cond
((or (= pt "S")(= pt "s"))
...
)
((or (= pt "A")(= pt "a"))
...
)
((= (typept) 'LIST)
...
;;输入点或字符串 2012.11.20;无捕捉功能版
页:
[1]