CAD，lisp中调用xattach

电脑 2022-06-13

CAD，lisp中调用xattach

用-xref命令就可以实现，按提示写代码。 (command "-xref" ********此处省略自己按需添加条件) (command "-xref" "a" (getfiled "选择要参照的文件" "" "dwg" 0) '(0 0) "1" "1" "0") "a"代表附着 '(0 0) 在图中插入的位置可以是（getpoint “指定插入点位置：”）根据提示编程希望能帮到你

关CAD lisp 调用excel程序代码

(DEFUN C:TT () (STARTAPP "EXPLORER.EXE" "C:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" ) ) 快捷键TT,请注意文件路径是否和我的一样,再就是路径格式。希望帮到你。

CAD lisp 如何获取外部参照的所有图层集合

(defun c:ff() (setvar "cmdecho" 0) (setq en1(entsel)) (setq en1_data (entget (car en1))) (setq tuceng1 (assoc 2 en1_data)) (setq tuceng3 (cdr tuceng1)) (setq tuceng (strcat tuceng3 "*" )) (command "-layer" "c" "8" tuceng "") (princ tuceng) (setvar "cmdecho" 1) (princ) ) 逻辑上： 1获取选择对象的外部参照名称，赋予变量“canz

cad 调用外部程序

调用一个程序 ==> StartApp (open filename mode) (setq f (open "c:\\my documents\\new.txt" "w")) (startapp appcmd [file]) (startapp "notepad.exe" "\"my stuff.txt\"") Check Help file (Acad_Dev.Chm)