已经两天了，求助！！
<p>(DEFUN C:CX () ;/ a b cxm sx sx1 ；查询扩展数据<br/> (SETQ A (ENTGET (CAR (ENTSEL)) '("*")))<br/> (SetQ B (Cdr (Assoc -3 A)))<br/> (SETQ CXM (CAR (CAr B)))<br/> (SETQ SX1 (CDr (CAr B)))<br/> (SETQ SX (CDR (CAr SX1)))<br/> (Alert (strcat "\n属性:" " " SX))<br/>)</p><p>(Defun c:xx () ；修改扩展数据<br/> (While (Not (SetQ a (EntSel "\n选择一个实体: ")))<br/> (Alert "没选中任何实体...")<br/> )<br/> (SETQ plist (ENTGET (car a)))<br/> (SetQ v (GetString "\n属性: ")<br/> L (Cons 1000 v)<br/> )<br/> (REGAPP "SX")<br/> (SETQ AAA (LIST (LIST -3 (LIST "SX" L))))<br/> (setq newB (append Plist AAA))<br/> (entmod newB)<br/> (PRINC)<br/>)</p><p>(PRINC)</p><p>下面这一段就不行了</p><p>(defun c:AA()<br/> (setq pt (getpoint "\n框选第一点"))<br/> (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))<br/> (setq e (ssname spl 0))<br/> ;(setq e1 (entget (car e)))<br/> ;(setq eenn (entget (CAR SPL ))) <br/> ;(SETQ CXM (CAR (CAr BBB)))<br/> ;(SETQ SX1 (CDr (CAr BBB)))<br/> ;(SETQ SX (CDR (CAr SX1)))<br/> )<br/></p><p></p><p></p> <p>全是些基本操作，多看书</p> <p>为什么 </p><p>1 SETQ A (ENTGET (CAR (ENTSEL)) '("*")))<br/>2 (While (Not (SetQ a (EntSel "\n选择一个实体: ")))<br/> (Alert "没选中任何实体...")<br/> )<br/>两种都可以</p><p>而</p><p>3 (setq pt (getpoint "\n框选第一点"))<br/> (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))<br/>就不行那了</p> <p>(setq spl (ssget "c" pt (getcorner pt) '((cons 8 "gcd") (cons 2 "gc200"))))</p><p></p><p>这样试一下</p> <p>(setq pt (getpoint "\n框选第一点"))<br/> (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))<br/> (setq e (ssname spl 0))<br/></p><p>后面加了一句</p><p>(SETQ XDATA (CDADR (ASSOC -3 (ENTGET e'("*"))))) <br/> (SETQ SX (CDr (CAr XDATA)))</p><p></p><p>解决</p>
页:
[1]