求循环读出扩展数据的代码。

kingerst

就是卡在这里，当画完line以后，怎么默认选取line，赋予扩展数据！

kingerst

就是卡在这里，当画完line后，默认选择了当前的line，然后执行赋予扩展数据！

kingerst

thnaks~~~!liminnet

kingerst

还是不能实现，画出钱就附加了上扩展数据，请指点！

(defun c:Initial_Track()
     (command "line")
  Track()

)

(defun Track()
 (Setq EN (entlast))
 (if EN
  (progn 
      (regapp "aaa")
         (regapp "aaa")
  )
  (alert " 初始化失败！")
 ) 

)

kingerst

厉害，真是五体投地啊。

请让我再请教一个问题。初始化的线扩展数据的(1000,"")字符串表是不是没有构造的，就是空值都提取不了？如是这样。

能不能帮我在上面的代码里构造一下，以便能够实现读取和修改。

再次感谢liminnet

kingerst

有点小模糊，是不是要下这个ko-function.VLX预载。然后
初始的扩展专属 “aaa” 和"bbb" 就赋予了，字串符“米”?

2. (defun c:tt()
3. (command "pline")
4. (while (= (getvar "CMDACTIVE") 1) (command Pause))
5.   (Track)
6. )
7. (defun Track()
8. (Setq EN (entlast))
9. (if EN
10.   (progn
11.       (regapp "aaa")
12. (ko->add-extend-data (car (entsel)) (list '("aaa" 1000 "米" "a" "y")))
13. (regapp "bbb")
14. (ko->add-extend-data (car (entsel)) (list '("bbb" 1000 "米" "a" "y")))
16.          (alert "ok")
17.   )
18.   (alert " 初始化失败！")
19. )
20. )

(defun c:tt() (command "pline") (while (= (getvar "CMDACTIVE") 1) (command Pause))   (Track) ) (defun Track() (Setq EN (entlast)) (if EN   (progn       (regapp "aaa") (ko->add-extend-data (car (entsel)) (list '("aaa" 1000 "米" "a" "y"))) (regapp "bbb") (ko->add-extend-data (car (entsel)) (list '("bbb" 1000 "米" "a" "y")))          (alert "ok")   )   (alert " 初始化失败！") ) )