(command "-color" "6") ;设置当前绘图颜色为洋红色 (command "xline" "v" ) (while (/= (getvar "cmdactive") 0) ;用于连接空格后的命令 (command pause)) (command "-color" "bylayer");恢复当前绘图颜色为随层 (princ)) ;;;绘制尺寸标注参考线(任意角度,适用于A4图框比例)--- (defun c:xar ...
(Command "_.TEXT" "_S" "STANDARD" ipt hgt 0 "Hello, Visual LISP!") ;调用“Commnad”函数与AutoCAD进行通信 [img]http://www.dhxy.com/Files/AutoCad/146-1.JPG[/img] (2) 单击“Standard(标准)”工具栏中的按钮,以“Hello.lsp”为名保存该文件。 Step 3 运行LISP程序 (1) 确认编辑窗口处于...
command:直接使用Auto CAD中的内置命令操作。 command-s:直接使用Auto CAD的内置命令,需要将执行过程中使用的参数提前传入。 vl-cmd:直接使用Auto CAD的内置命令。 使用差异 (command "_.line" '(10 10) '(100 100) "") (command-s "_.line" '(10 10) '(100 100) "") (vl-cmd "_.line" (get...
我想困扰你的因该是这几个命令都会弹出对话框，你不知道输入顺序，其实这些命令也支持命令行的，使用时再前面加上 "-" 即可，如"insert”你用"-insert”就可一步步按顺序输入了！ 然后在用COMMAND调用时也按那个顺序传输参数即可。
(command "-insert" "d:\\xx\\xxx.DWg" "50,500" 1 1 0 )可以直接在命令行输入 注意“ 及 ...
(command "pline" p1 p2 p3 "c")); end of function编辑完成后,保存为扩展名为lsp的文件。如存为prog01.lsp。3、启动AutoCAD,载入上述程序方法一:单击“工具”下拉菜单,选择“程序调入”选项,在对话框中输入文件名,注意应指明路径。如“d:\prog01.lsp”,载入程序,如有错误,则返回文本编辑器进行修改。重新...
) (setqNEWPT(polarPNT1ANGINCR)) (command"copy"A""PNT1NEWPT) ) (setvar"OSMODE"OM) (setqAnil) );endcm.lsp 绘制箭头 (defunC:jt() (prompt"\n绘制箭头") (setqoldmode(getvar"osmode")cm(getvar"cmdecho")) (setvar"osmode"0);关闭扑捉 (setvar"cmdecho"0) (initget"ABC")
(command "_.TEXTHEIGHT" obj height)(command "_.TEXTWIDTH" obj width)))(close in)(princ (...
使用command-s会直接卡在DCL页面，没有报错就只是卡着，也退不出来 使用vl-cmdf，(if command-s ...
好象这个命令执行会跳出对话框，这正是你不想让它出现的情况，是吗？如果要在lisp程序里，完成类似查找替换的操作，可以直接用LISP函数实现，靠你的大脑了，用LISP，而不通过CAD的原始COMMAND也是可以实现的。