无名块插入后（entlast),马上炸开怎么写？

669423907

错误: no function definition: EN2OBJ

尘缘一生

669423907 发表于 2020-3-11 08:25
错误: no function definition: EN2OBJ

;;;常量定义
(setq *Acad*           (vlax-get-acad-object)
        *AcDocument* (vla-get-activedocument *Acad*)  ; 获取当前图档指针
        *Model-Space* (vla-get-modelspace *AcDocument*)
        *Paper-Space* (vla-get-PaperSpace *AcDocument*)
        pi2           (* pi 0.5)
        pi4           (* pi 0.25)
        3pi4         (* 0.75 pi)
        2pi           (* pi 2.0)
        3pi2         (* 3pi4 2.0)  ;; (* 1.5 pi)
        5pi4   (+ pi pi4)  ;;(* 1.25 pi)
        7pi4   (+ 3pi2 pi4) ;;(* 1.75 pi)
)

• ;;返回 obj的 vla对象名-------(一级)-----------------------------------
• (defun en2obj (object)
•   (cond
•     ((= (type object) 'vla-object)
•       object
•     )
•     ((= (type object) 'ename)
•       (vlax-ename->vla-object object)
•     )
•   )
• )
  

hpy

试试下面这个能不能实现你的要求。也是建立无名块，插入后，炸开。
(defun greaddrag(a)
   (if (not greadss) (VL-EXIT-WITH-VALUE 0))
   (if (not greadpt0) (VL-EXIT-WITH-VALUE 0))
   (MakeUnNameBlock greadss greadpt0)
   (setq greadent (entlast))
   (setq greadsent (entget greadent) )
   (setq gr-tag T grtag T)
   (while grtag
      (setq grre (grread t 15 0))
      (setq code (car grre) snapt (cadr grre))
      (cond ((= code 3) (setq grtag nil) (command "explode" greadent) )
            ((= code 5)                     
             (redraw)
             (redraw greadent 2)
             (setq snapt (osnappt  greadent snapt))
             (entmod (setq greadsent (subst (cons 10 snapt) (assoc 10 greadsent) greadsent)))
             (redraw greadent 1)
            )
           ((member code '(11 25)) (setq grtag nil) (setq gr-tag nil) (entdel greadent) )
      )
   )
   (redraw)
   (vl-cmdf "-purge" "B" "*U*" "n")
)

669423907

尘缘一生 发表于 2020-3-11 11:57
;;;常量定义
(setq *Acad*           (vlax-get-acad-object)
        *AcDocument* (vla-get-activedo ...

加载了你上传的程序，选择对象，运行程序后，对象变成了块，也跟着光标移动了，但是点左键没有停下来，按右键或回车或空格，跟着光标移动的块就不见了

尘缘一生

669423907 发表于 2020-3-11 21:15
加载了你上传的程序，选择对象，运行程序后，对象变成了块，也跟着光标移动了，但是点左键没有停下来，按 ...

此问题已经解决，源码发上:

xiaozhu33033

尘缘一生 发表于 2020-3-12 00:17
此问题已经解决，源码发上:

特定用户组才能下载