已经两天了，求助！！

wlmq

(DEFUN C:CX () ;/ a b cxm sx sx1   ；查询扩展数据
  (SETQ A (ENTGET (CAR (ENTSEL)) '("*")))
  (SetQ B (Cdr (Assoc -3 A)))
  (SETQ CXM (CAR (CAr B)))
  (SETQ SX1 (CDr (CAr B)))
  (SETQ SX (CDR (CAr SX1)))
  (Alert (strcat "\n属性:" "  " SX))
)

(Defun c:xx ()  ；修改扩展数据
  (While (Not (SetQ a (EntSel "\n选择一个实体: ")))
    (Alert "没选中任何实体...")
  )
  (SETQ plist (ENTGET (car a)))
  (SetQ v (GetString "\n属性: ")
 L (Cons 1000 v)
  )
  (REGAPP "SX")
  (SETQ AAA (LIST (LIST -3 (LIST "SX" L))))
  (setq newB (append Plist AAA))
  (entmod newB)
  (PRINC)
)

(PRINC)

下面这一段就不行了

(defun c:AA()
  (setq pt (getpoint "\n框选第一点"))
  (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))
  (setq e (ssname spl 0))
  ;(setq e1 (entget (car e)))
  ;(setq eenn (entget (CAR SPL )))
  ;(SETQ CXM (CAR (CAr BBB)))
  ;(SETQ SX1 (CDr (CAr BBB)))
  ;(SETQ SX (CDR (CAr SX1)))
  )

NetBee

全是些基本操作，多看书

wlmq

为什么 

1  SETQ A (ENTGET (CAR (ENTSEL)) '("*")))
2 (While (Not (SetQ a (EntSel "\n选择一个实体: ")))
    (Alert "没选中任何实体...")
  )
两种都可以

而

3  (setq pt (getpoint "\n框选第一点"))
  (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))
就不行那了

phoenixdjq

(setq spl (ssget "c" pt (getcorner pt) '((cons 8  "gcd") (cons 2  "gc200"))))

这样试一下

wlmq

(setq pt (getpoint "\n框选第一点"))
  (setq spl (ssget "c" pt (getcorner pt) '((8 . "gcd") (2 . "gc200"))))
  (setq e (ssname spl 0))

后面加了一句

(SETQ XDATA (CDADR (ASSOC -3 (ENTGET e'("*"))))) 
    (SETQ SX (CDr (CAr XDATA)))

解决