lisp编程 在打开的CAD图中，插入另一已画好的cad图
用CAD 里面编程 讲已经画好的 1.DWG 2.DWG 3.DWG 已经放到SUPPORT 里面
用LISP 编程 主要输入命令 比如 shuru 就能让你选择插入 是 1 2 3 ，在输入1 就插入1.dwg 并让你自己选择插入的比例，角度。。。帮忙。。谢谢。。
(setvar "cmdecho" 0)
(setq file (getstring "\n输入待输入的图形文件名:"))
(if (not file)(exit)
(progn
(setq dwg(findfile(strcat file ".dwg")))
(if(not dwg)(exit)
(progn
(setq pt(getpoint "\n指定插入点:"))
(if(not pt)(exit)
(progn
(setq sx(getreal "\指定X比例<1>:"))
(if(not sx)(setq sx 1))
(setq sy(getreal "\指定Y比例<1>:"))
(if(not sy)(setq sy 1))
(command "-insert" dwg pt sx sy "0")
)
)
)
)
)
)
(setvar "cmdecho" 0)
(princ)
)
;;事实上真的是直接使用Insert命令也差不多!除非要批量插入才编程
;;顺手写了段小代码，自己按需要修改一下再用
lisp编程 在打开的CAD图中,插入另一已画好的cad图
(defun c:shuru(\/ file dwg pt sx sy)(setvar "cmdecho" 0)(setq file (getstring "\\n输入待输入的图形文件名:"))(if (not file)(exit)(progn (setq dwg(findfile(strcat file ".dwg")))(if(not dwg)(exit)(progn (setq pt(getpoint "\\n指定插入点:"))(if(not pt)(exit)(pr...
lisp编程 在打开的CAD图中,插入另一已画好的cad图
(defun c:sz()(vl-load-com)(setq old (getvar "cmdecho")path (strcat (Vlax-Get (Vlax-Get-Acad-Object) 'Path) "\\\\Support")files (vl-directory-files path "*.dwg" 1))(setvar "cmdecho" 0)(command "_undo" "be")(initget "1 2 3")(setq wjh (getkword "\\n1\/2\/3<1...
求lisp程序,在cad图中插入事先存在某文件夹里的一张图,选择插入点时...
就直接点击插入 然后点光栅图像参照图片就进来了
求lisp程序解决cad插入图块
(while(setq pt1(read-line f))(setq rang(last(read(strcat "(" pt1 ")")))(setq pt1(read(strcat "(" pt1 ")")))(setq pt1(list (car pt1)(cadr pt1)))(command "insert" blockname pt1 "" "' rang ""))
怎样用lisp编写程序控制cad
在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。使用cad加载lsp文件，选择lsp文件位置。在命令栏点击l，用cad绘制几条线段，如下图所示。在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度...
求CAD加开图层LISP
ss)(progn (setq lay (vla-add lays tc_mc))(if (< (cdr (assoc 62 (tblsearch "layer" tc_mc))) 0) (vla-put-LayerOn lay :vlax-true));打开 )(progn (princ (strcat "\\n没有(" tc_mc ")这个图层，仔细核对后输入"))(setq tc_mc nil)))(princ));以上是autolisp程序 ...
用lisp编程,打开D:\\1.dwg图形,利用编程命令在此图形路径下新建文件夹命...
写了一个autolisp，注意以下条件：打开的dwg文件必须要保存。如果新文件夹没有建立成功，查看cad是否安装了【Express Tools】。(defun c:tes ( \/ &tr1 ff1 ff2) (setq ff1 "D:\\\\A");建立文件夹 (if (VXMAKEDIRECTORY ff1);如果建立成功 (progn (setq &tr1 (getvar "dwgname"));提取...
我用lisp写一段代码 当我在cad命令行执行他时 cad自动加载 我自己写...
(COMMAND "MENULOAD" FILE);加载菜单file (menucmd "P50=+菜单名.pop1");显示菜单
如何在AutoCAD Visual Lisp编辑器中创建与编译lisp程序
根据向导一步步进行编译很简单的。如果在其他CAD图形文件中需使用当前代码文件或编译后的文件，就按上面第一点的，或者在命令行输入”ap"，打开导入应用的对话框。如何在AutoCAD Visual Lisp编辑器中创建与编译lisp程序 1是用来临时导入的，2是将程序加入CAD的启动组。lisp解决重复性劳动问题 在设计和绘图...
关于cad的lisp
1.快捷方式可以用(defun c: xxx) 实现 2.调用xxx 时 可以弹出对话框 选择需要选取的图形 并将结果 放入选集 selection 3.关闭0 图层 打开 1图层 试用insert 命令插入 至于偏移多少自己定.3.关闭1 图层 打开 2图层 用insert 命令插入 到图层2中 ;;;实现打开图层1 例如 (LayerOn 1)(defun Laye...
