为什么我的匿名块创建偶尔会移位呢

yangist

(defun C:N()
  (command "_.undo" "_group")
  (setq pt (getpoint "\n插入点： "))
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (prompt "\\n选取对象建立匿名块: ")
  (setq AA (ssget))
  (setq A (rtos (* (getvar "CDATE") 1E8)))
  (if (/= AA NIL)
    (progn
      (command "_.BLOCK"  A  pt  AA "")
      (command "_.INSERT"  A  "@"  ""  ""  "")
      (setq BLKREF (vlax-ename->vla-object (entlast)))
      (vla-put-name
(vla-item (vla-get-blocks
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (vla-get-name BLKREF)
)
"*U"
      )
      (vlax-release-object BLKREF)
    )
    (alert "\\n警告!  没有选取任何对象!")
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (command "_.undo" "_end")
  (princ)
)

Gu_xl

关闭捕捉

yangist

Gu_xl 发表于 2013-6-28 16:38
关闭捕捉

明白了 谢谢