[求助]请帮助一下改这个lsp?

he520930

本人在该论坛上找了一个插入时间的lsp,我想改成插入块的名称可不可以?

即:我的图中有一个块,名称为A12,当我用命令运行时,选取该块,就能读取该块的名称了,就能选择插入点来插入文字了,为A12

那位能帮助一下,谢谢!!

Andyhon

(defun C:da()
   ;; 改成插入块的名称
   (setq BlkName (cdr (assoc 2 (entget (car (EntSel "\n請指定插入块: "))))))
   (setq pt0 (getpoint "\n請指定插入位置點: "))
   ;; (setq date0 (menucmd "M=$(edtime,$(getvar,date),%%uDD.M.YYYY hh:mm:ss)"))
   (command "text" "j" "m" pt0 5.0 0 BlkName)
   (princ)
)

;; 沒有錯誤處理,僅供參考

he520930

谢谢楼上的朋友,现在我的问题已经有人帮我解决了,多谢了!