kingerst 发表于 2009-8-28 15:35:00

选择线段，将节点坐标附给扩展字符数据。报错

选择线段，将节点坐标附给扩展字符数据。报错：; 错误: DXF 组不正确: (-3 ("设备类" (1000 90.0 110.0)))
请高手帮忙，另外如果多个坐标怎么一一对应相应的注册名？(defun c:kz()
(regapp "设备类")   ;;;注册专属名
   ;(setq a (getstring "please input"))
    (setq en (car (entsel)))
    ( if en
      (progn
         (setq a (cdr(assoc 10 endata)))
      (setq new_list(list -3 (list "设备类" (cons 1000 a))))
      (setq endata (entget en))
            (if (setq old_list(assoc -3 endata))
       (setq endata(subst new_list old_list endata))
       (setq endata(append endata(list new_list)))
          )
   (entmod endata)
    )
)

)

asdfxx 发表于 2009-8-28 16:24:00

5061220 发表于 2009-8-28 16:42:00

<p>我也想跑，但怕怕啊！</p><p></p>

kingerst 发表于 2009-8-28 16:42:00

<p>这就是在走了。如果真的跑，你会不会觉得我在飞？</p>

ljttjl 发表于 2009-8-28 20:12:00

<p><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black"><font color="#0000ff">setq</font></a> new_list<font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black"><font color="#0000ff">list</font></a><font color="#008000">&nbsp;-3 </font><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black"><font color="#0000ff">list</font></a>&nbsp;<font color="#ff00ff">"设备类" </font><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/cons.htm" target="_black"><font color="#0000ff">cons</font></a>&nbsp;<font color="#008000">1000</font> a<font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font></p><p><font color="#ff0000">此处变量a如为坐标点，则对应扩展数据组码不应为1000，可查看帮助文件看下坐标点对应的扩展数据组码。</font></p>

kingerst 发表于 2009-8-31 09:13:00

<p>就是想放在字符串里，有没有办法tostring?</p>
页: [1]
查看完整版本: 选择线段，将节点坐标附给扩展字符数据。报错