请教(vlax-ldata-put (car (entsel)) "diy" "临时")如何改为先选

669423907

请教一个问题：

(vlax-ldata-put (car (entsel)) "diy" "临时")
(vlax-ldata-get (car (entsel)) "diy")

(defun c:13()
(setq ss (ssget":s"))
;;;;;;;;;;请问如何转换为可以先选择对象？
(vlax-ldata-put ss "diy" "临时")
(vlax-ldata-get ss "diy")
(princ))

479274135

1. (defun c:13()
   
2.   (setq ss (ssget "i"))
   
3.   (if (= ss nil)
   
4.     (setq ss (ssget":s"))
   
5.   )
   
6.   ...
   
7. )

(defun c:13()<br />   (setq ss (ssget "i"))<br />   (if (= ss nil)<br />     (setq ss (ssget":s"))<br />   )<br />   ...<br /> )

479274135

479274135 发表于 2019-1-10 13:45

不知道是不是你想要的，么搞清楚你这个是干什么用的

669423907

479274135 发表于 2019-1-10 13:45

选择集要转图元

479274135

669423907 发表于 2019-1-10 13:48
选择集要转图元

前面那个代码错了，我改过了

669423907

给图形添加扩展数据，增加自定义组码及表值

-3组码
扩展数据过滤。ALISP 中可以用如下方法。
第一步，注册一个扩展对象应用名
(regapp "xapp")
第二步，选择一个图元并返回组码
(setq En (entget (car (entsel))))
第三步，定义加入图元的扩展数据
(setq data '((-3 ("xapp" (1000 . "你好中国")))))
第四步，将扩展数据附着更新图元
(entmod (appendEn data))
完成，我们可以检查一下扩展数据
(assoc -3 (entget (car (entsel)) '("xapp")))
结果返回
(-3 ("xapp" (1000 . "你好中国")))
用 VLisp 函数给图元添加数据比较简单，无需提前注册名称，例如：
(vlax-ldata-put(car (entsel)) "xa" "你好中国")
查询数据如下：
(vlax-ldata-get (car (entsel)) "xa")
返回： "你好中国"

取之于明经