能否实现框选图元变为外部参照

王与韩1

RT,能不能实现像使用WBLOCK一样用将图元变为外部参照呢，最好能选择使用覆盖或者附加的方式，先谢谢各位了

尘缘一生

顶起来，希望有这个代码。。。。。。。。。

sniper1111

还需要吗，最近我在搞，小有成效

wzg356

;ss-选择集或图元名表
;p-插入点
;blk-块名字符串，如为nil则创建无名快
(defun EntmakeBlock (ss p blk / e n dxf)
(if(not(listp ss))
(setq ss(vl-remove-if '(lambda(x)(/= (type x) 'ENAME))(mapcar 'cadr(ssnamex ss))))
)
(entmake(list '(0 . "block")(cons 2(if blk blk "*U"))(cons 70(if blk 0 1))(cons 10 p)))
(foreach e ss(setq dxf(entget e))(cond(dxf(entmake(cdr dxf))(entdel e))))
(setq blk(entmake '((0 . "ENDBLK"))))
(entmake(list '(0 . "INSERT")(cons 2 blk)(cons 10 p)))
)

昊翰鲲鹏

sniper1111 发表于 2021-10-29 14:15
还需要吗，最近我在搞，小有成效

大佬搞好了吗

sniper1111

昊翰鲲鹏 发表于 2021-11-18 10:27
大佬搞好了吗

是这样的，但是还有不少问题

sniper1111

;;;做块写出快，返参程序
;;;引用样式（block_xref (ss选择集 pt基点 name 块名 La 返参放置图层 path路径 XREF_N是否返参"0"或"1" XREF_T附着"A"或覆盖"O")
;;;路径例如："C:\\Users\\曲银德\\Desktop\\XREF"
(defun block_xref (ss pt name La path XREF_N XREF_T)
(if (/= ss nil)
     (progn
         (command "_.block" name "non" pt ss "")
         (setq fn (strcat path (chr 92) name))
         (if (findfile (strcat fn ".dwg"))
             (command "_.WBLOCK" fn "_Y" name)
             (command "_.WBLOCK" fn name)
         )
         (command "_PURGE" "B" name "Y" "Y")
         (if (= XREF_N "0")
             (progn
                 (command "-xref" XREF_T fn pt "1" "1" "0")
                 (command "Chprop" (entlast) "" "LA" La "")
             )
         )
     )
)  

)

昊翰鲲鹏

sniper1111 发表于 2021-11-18 11:40
;;;做块写出快，返参程序
;;;引用样式（block_xref (ss选择集 pt基点 name 块名 La 返参放置图层 path路径 ...

我觉得  可以实现根据拾取图层写块到指定文件夹并且不改变位置  就已经很不错了  回插参照比较省事   大佬是沈阳的吗

sniper1111

昊翰鲲鹏 发表于 2022-2-16 14:49
我觉得  可以实现根据拾取图层写块到指定文件夹并且不改变位置  就已经很不错了  回插参照比较省事   大 ...

是的在沈阳。