自动重载xref
<p>经常绘图的人会把xref 设置成绝对路径</p><p>所以一气之下做了个东西.</p><p>以后方便</p><p>(Defun c:xx()<br/>(vl-load-com)<br/>(setq ssg (ssget "x" '((0 . "insert"))))<br/>(setq xpath (getstring "Input xref path:"))<br/> (setq i 0)<br/> (repeat (sslength ssg)<br/> (setq obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (cdr (assoc 2 (entget (ssname ssg i))))))<br/> (if (= (vla-get-isxref obj) :vlax-true) (vla-put-path obj (strcat xpath (vla-get-name obj) ".dwg")))<br/> (setq i (1+ i))<br/> )<br/>(command "_xref" "r" "*")<br/>(princ)<br/>)</p><p></p><p></p> 厉害了我的哥，这个不错不错
页:
[1]