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

669423907 · 发表于 2020-3-11 08:25:09

错误: no function definition: EN2OBJ

尘缘一生 · 发表于 2020-3-11 11:57:24

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 · 发表于 2020-3-11 13:43:29

试试下面这个能不能实现你的要求。也是建立无名块，插入后，炸开。
(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 21:15:29

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

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

尘缘一生 · 发表于 2020-3-12 00:17:04

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

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

xiaozhu33033 · 发表于 2022-8-17 13:34:18

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

特定用户组才能下载

账号		自动登录	找回密码
密码			注册

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

点评

本帖子中包含更多资源