kingerst 发表于 2009-7-31 09:28:00

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

kingerst 发表于 2009-7-31 09:30:00

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

liminnet 发表于 2009-7-31 09:33:00

kingerst 发表于 2009-7-31 09:42:00

thnaks~~~!<strong><font face="Verdana" color="#61b713">liminnet</font></strong>

kingerst 发表于 2009-7-31 11:03:00

<p>还是不能实现，画出钱就附加了上扩展数据，请指点！</p><p>(defun c:Initial_Track()<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "line") <br/>&nbsp; Track()</p><p>)</p><p>(defun Track()<br/>&nbsp;(Setq EN (entlast))<br/>&nbsp;(if EN<br/>&nbsp;&nbsp;(progn&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (regapp "aaa")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (regapp "aaa")<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(alert " 初始化失败！")<br/>&nbsp;)&nbsp;</p><p>)<br/></p>

liminnet 发表于 2009-7-31 11:18:00

kingerst 发表于 2009-7-31 13:47:00

<p>厉害，真是五体投地啊。</p><p>请让我再请教一个问题。初始化的线扩展数据的(1000,"")字符串表是不是没有构造的，就是空值都提取不了？如是这样。</p><p>能不能帮我在上面的代码里构造一下，以便能够实现读取和修改。</p><p>再次感谢<strong><font face="Verdana" color="#61b713">liminnet</font></strong></p>

liminnet 发表于 2009-7-31 14:07:00

liminnet 发表于 2009-7-31 14:08:00

kingerst 发表于 2009-7-31 14:17:00

有点小模糊，是不是要下这个ko-function.VLX预载。然后
初始的扩展专属 “aaa” 和"bbb" 就赋予了，字串符“米”?
(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 " 初始化失败！")
)
)
页: 1 [2] 3
查看完整版本: 求循环读出扩展数据的代码。