在选择集函数SSGET中，下列语句中的APP究竟什么意思，如何使用？

wzh

在选择集函数SSGET中，下列语句中的APP究竟什么意思，如何使用？


(ssget "X" '((0 . "CIRCLE") (-3 ("APP"))))

spring

扩展数据的应用名称

wzh

我没有用过，您能给我举一个实际例子吗？

zoe

这个也许有点用： (defun c:lsp_54()
(regapp "SAKURA") ;;注册专属应用名称
(setq new_s (getstring "编号<A0001>:"))
(if (= new_s "") (setq new_s "A0001"))
(setq new_i (getint "\n整数值<123>:"))
(if (null new_i) (setq new_i 123))
(setq new_r (getreal "\n实数值<45.8>:"))
(if (null new_r) (setq new_r 45.8))
(setq en (car (entsel "\n选取对象:")))
(if en
(progn
;-------------- 扩展数据的要求格式
;-------------- (-3 ("SAKURA" (1000 . "A0001")(1070 . 123)(1040 . 45.8)))
(setq new_ext_list(list -3 (list "SAKURA"
(cons 1000 new_s) ;群码1000必须是字符串
(cons 1070 new_i) ;群码1070必须是整数
(cons 1040 new_r)))) ;群码1040必须是实数
(setq endata (entget en))
(setq entype (cdr (assoc 0 endata)))
(if (setq old_ext_list (assoc -3 endata))
(setq endata (subst new_ext_list old_ext_list endata))
(setq endata (append endata (list new_ext_list)))
)
(entmod endata)
(alert (strcat "● " entype " ●" "加入扩展数据库成功→ " new_s "," (itoa new_i) "," (rtos new_r)))
)
)
(prin1)
)

zoe

你的“APP”相当于例子中的“SAKURA”。

无痕

“SAKURA”。？？？


怎么好像是日文的发音？！！


打倒小**！！

雪山飞狐_lzh

^_^，技术讨论不用带政治色彩吧？不过我也要加一句，坚决打倒小**！！

zoe

这也太敏感了吧，你们不说我都没注意到

wzh

谢谢4楼提供的程序，我也认为技术是不分国界的。

meflying

wzh发表于2004-6-15 13:15:00谢谢4楼提供的程序，我也认为技术是不分国界的。

我不这么认为，你让美国分你点技术看看