求不用晓东工具箱就能使用的动态块匹配插件

lovezp

137407536 发表于 2019-5-16 11:22
就是可以选择其他动态块，进行填充

动态块的名字不一样，它们的参数代表的意义都是一样的才行。

souhu1230

lovezp 发表于 2019-5-16 17:50
动态块的名字不一样，它们的参数代表的意义都是一样的才行。

大湿，加个qq好了

souhu1230

137407536 发表于 2019-5-16 11:22
就是可以选择其他动态块，进行填充

回复了四五天了，没一天回复上了，兄弟能不能加个qq

137407536

lovezp 发表于 2019-5-16 17:50
动态块的名字不一样，它们的参数代表的意义都是一样的才行。

是的，"横向距离"参数都是"距离1"，"纵向"都是"距离2"
调了下还是!blkname为nil。刚了解lisp求解下

(defun c:tt1 (/ *error* pi90 mspase mycaddoc pt ent pt1 pt2 dx dy blk1 blkname)
   (defun *error* (msg)
     (vla-endundomark mycaddoc)
   )
   (setq pi90 (* pi 0.5))
   (setq mycaddoc (vla-get-activedocument (vlax-get-acad-object)))
   (setq mspace (vla-get-modelspace mycaddoc) )
   (vla-startundomark mycaddoc)
  (if(setq blk1 (car (entsel "\n拾取图块<退出>:")))
            (= (vla-get-objectname (setq blk1 (vlax-ename->vla-object blk1)))
               "AcDbBlockReference"
            )
            (or (setq blkname (vla-get-EffectiveName blk1))
                (setq blkname (vla-get-name blk1))
            )
      
    (while (setq pt (getpoint "\n点选要填充的区域:"))
   (command "-boundary" pt "")
   (setq ent (vlax-ename->vla-object (entlast)))
   (vla-getboundingbox ent 'zx 'ys)
   (entdel (entlast))
   (setq        pt1 (vlax-safearray->list zx);左下角点
         pt2 (vlax-safearray->list ys);右上角点
         dy  (- (cadr pt2)(cadr pt1));竖向距离
         dx  (- (car pt2)(car pt1));横向距离
;;;        pt1 (polar pt1 pi90 dy);insertpoint
         pt1 (vlax-3d-point pt1)
   ) ;_ 结束setq
   (vla-insertblock mspace pt1 blkname 1 1 1 0)
   (setq ent (vlax-ename->vla-object (entlast)))
   (XD::BLOCK:Setdynpropvalue ent "距离1" dx)
   (XD::BLOCK:Setdynpropvalue ent "距离2" dy)
     )
    )
   (vla-endundomark mycaddoc)
  (princ)
)

lovezp

(if(setq blk1 (car (entsel "\n拾取图块<退出>:")))
     (setq blkname (vla-get-EffectiveName ((vlax-ename->vla-object blk1))))
      )

depgfdepgf

如何实现点选图块，再填充，这样才实用，这样不同名称的图块都能通用，谢谢lovezp

lovezp

depgfdepgf 发表于 2019-5-22 09:04
如何实现点选图块，再填充，这样才实用，这样不同名称的图块都能通用，谢谢lovezp

不怕你笑话，从未用过动态块。
来自: 微社区

souhu1230

都是大神，就是我不会，我慢慢学

zrednzdfn

#在这里快速回复#感觉除了比较卡顿之外，挺好的

gong980122

看着挺高级的。