error: bad argument type: consp <Entity name: 1b6189f4df0>

dennylaw163

请大师们帮忙看一下下面的小命令为何返回 error: Ｃ<Entity name: 1b6189f4df0>

(defun c:pm (/ ss2 ent entdata ptlst ts)
  (setvar "cmdecho" 0)
  (setq ss2 (entlast))

  (if (and (= "LWPOLYLINE" (cdr (assoc 0 (setq entdata (entget (setq ent (car ss2)))))))
           (= 4 (cdr (assoc 90 entdata))) (= 1 (cdr (assoc 70 entdata))))
    (progn
      (setq ptlst nil)
      (foreach x entdata
        (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst)))
      )
      (setq ptlst (reverse ptlst))

    )

  )

(setq ts "\nLayer 'Defpoints' turn on")

(command "-layer" "on" "Defpoints" "")

(command "ucs" "z" "0")

(command "move" (SSGET "x" '((0 . "INSERT") (2 . "Part_data") (66 . 1))) "" (nth 3 ptlst) "161.7354,70.1836")


(prompt ts)
(princ       
   )
  )

gaics

(setq ent (car ss2))改(setq ent ss2)

dennylaw163

gaics 发表于 2021-3-27 10:55
(setq ent (car ss2))改(setq ent ss2)

大师就是大师，谢谢