对象重命名的奇怪的问题！！！

highflybir

应该不会出现这种情况:

(defun c:test(/ sel ent obj name)
  (if (setq sel (ssget '((0 . "INSERT"))))     
    (progn
      (setq ent (ssname sel 0))
      (setq obj (vlax-ename->vla-object ent))
      (setq name (vla-get-name obj))
      (if (= (substr name 1 1) "*")
        (vla-ConvertToStaticBlock obj "Anonymous-Sample")
        (vla-ConvertToAnonymousBlock obj)
      )
    )
  )
)

alin

我的无名块是通过下面收集来的程序生成，的确移位了。
;C:BLK______________________________________________________ ____________
 ;Creates an anonymous block out of selected entities

(defun c:blk (/ ip ss ename enames elist)
  (if (setq ip (getpoint "\nInsertion point for anonymous block: "))
    (if    (setq ss (ssget))
      (progn
    (while (setq ename (ssname ss 0))
      (setq
        ss       (ssdel ename ss)
        enames (cons ename enames)
      )
    )
    (setq
      elist
       (list
         (list
           '(0 . "BLOCK")
           '(2 . "*U")
           (cons 10 ip)
           '(70 . 1)
         )
       )
    )
    (foreach ename enames
      (setq elist (cons (entget ename) elist))
    )
    (setq
      elist    (cons '((0 . "ENDBLK")) elist)
      elist    (foreach item (reverse elist) (entmake item))
    )

 ;ERASE THE INDIVIDUAL ENTITIES THAT ARE NOW IN THE BLOCK
    (foreach ename enames (entdel ename))

 ;CREATE THE INSERT ENTITY
    (entmake
      (list
        (cons 0 "INSERT")
        (cons 2 elist)
        (cons 10 ip)
      )
    )

      )
    )
  )
  (princ)
)
;;;

caoyin

用 Vla-putname 和 vla-auditinfo 则会生成“AUDIT-******”的新块名，这也就意味着重命名要进行两次才能达到目的

无名块->重命名->修复(生成随机的有名块)->重命名为指定名称的有名块

狂刀无痕

大家说的都很有借鉴意义。谢谢