yangist 发表于 2013-6-28 15:06:42

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

(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"AptAA "")
      (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 发表于 2013-6-28 16:38:51

关闭捕捉

yangist 发表于 2013-6-28 16:40:10

Gu_xl 发表于 2013-6-28 16:38 static/image/common/back.gif
关闭捕捉

明白了 谢谢
页: [1]
查看完整版本: 为什么我的匿名块创建偶尔会移位呢