[求助])lisp以一个图层名称来做定义块名称怎么实现

Mr.Q

我需要将一个图形变成自定义命名块，我选中需要变成块的图形后程序会自动识别将PATTERN_NAME图层里面的文字内容名称直接转换成块的名称。谁能帮我修改下吗

(defun c:bb (/ ss name pt)
  (princ "\n请选择对象:")
  (setq ss (ssget))
  (if (= ss nil)
    (exit))
  (setq name (entsel "\请选择文字:"))
  (if (= name nil)
    (setq name (getvar "cdate"))
    (setq name (cdr (assoc 1 (entget (car name))))))
  (setq pt (getpoint "\n请指定点:"))
  (if (= pt nil)
    (setq pt (list 0 0 0)))
  (command "block" name pt ss "")
  (command "insert" name "s" "1" pt "")
  (princ)
  )

龙龙仔

;;==>ATTERN_NAME圖層裏面的文字內容名稱直接轉換成塊的名稱
;;以上看不太懂

(defun C:BB (/ SS NAME PT)
  (if (and (setq SS (ssget))
    (setq
      NAME
       (cdr
  (assoc
    1
    (entget (ssname (ssget "x" '((8 . "PATTERN_NAME"))) 0))
  )
       )
    )
      )
    (progn
      (setq PT (getpoint "\n請指定點: "))
      (if (= PT NIL)
 (setq PT (list 0 0 0))
      )
      (command "_.block" NAME "non" PT SS "")
      (command "_.insert" NAME "s" "1" "non" PT "")
    )
  )
  (princ)
)

hbllw

不能用，咋的，参数类型错误

白色微風1991

;;==> ATTERN_NAME圖層裏面的文字內容名稱直接轉換成塊的名稱
;;以上看不太懂

(defun C:BB (/ SS NAME PT)
  (if (and (setq SS (ssget))
    (setq
      NAME
       (cdr
  (assoc
    1
    (entget (ssname (ssget "x" '((8 . "PATTERN_NAME"))) 0))
  )
       )
    )
      )
    (progn
      (setq PT (getpoint "\n請指定點: "))
      (if (= PT NIL)
(setq PT (list 0 0 0))
      )
      (command "_.block" NAME "non" PT SS "")
      (command "_.insert" NAME "s" "1" "non" PT "")
    )
  )
  (princ)
)

這個程式，為什麼有時可以用，有時不可以用 ，