77问答网
所有问题
当前搜索:
CADlsp编程
CAD lsp
代码怎么写这个命令,用过,但没代码,求指导
答:
框选对象图层L1 分析每个对象的坐标包围框,代码 (vl-load-com);加载VBA函数 (setq obj (vlax-ename->vla-object ent)) ;obj对象 (vla-GetBoundingBox obj '&p1 '&p2) ;得到包围框 (setq &p1 (vlax-safearray->list &p1));得到右下角坐标 (setq &p2 (vlax-safearray->list &p2...
cad
如何编
lsp
命令锁定除选定的图层外其他图层
答:
(defun c:ff () (setvar "cmdecho" 0) (command "layoff") (setvar "cmdecho" 1) (prin1) ) ;;选择需要关闭的图层 (defun c:qw () (setvar "cmdecho" 0) (command "layiso") (setvar "cmdecho" 1) (prin1) ) ;;选择需要隔离的图层;如果要锁定或关闭;输入这个命令...
cad
提取面域面积
lsp
请教大神
答:
cad
提取面域面积
lsp
请教大神 (defunc:mj(/#k1&k1&kw1a1a2ss1);统计面积(setvar"cmdecho"0)(setvar"blipmode"0)(if(nullvlax-dump-object)(vl-load-com));加载vlax函数(princ"\n请选择要计算面积的对象")(if(setq&... (defun c:mj ( / #k1 &k1 &kw1 a1 a2 ss1);统计面积 (setvar "cmdecho"...
CAD
快速标注
LSP
代码,大神帮忙整一个,感谢!
答:
标注尺寸 autolisp代码如下:;标注尺寸 (defun c:tes ( / ent n1 n2 obj p1 p2 p3)(vl-load-com)(while (setq ent (x2007101))(setq obj (vlax-ename->vla-object ent))(vla-getboundingbox obj 'p1 'p2)(setq p1 (vlax-safearray->list p1) p2 (vlax-safearray->list p2) p3 (...
怎样用lisp
编写程序
控制
cad
答:
创建一个
cad
,新建一个工程,如下图所示。在lisp编辑器中编写一下程序,程序的作用为计算线段总长度,并选择另存为位置,保存文件
lsp
文件。使用cad加载lsp文件,选择lsp文件位置。在命令栏点击l,用cad绘制几条线段,如下图所示。在命令栏输入ll,选择所有线段...
cad
visual lisp语言
编程
问题
答:
(progn (if (setq JD (getreal "\n请指定角度"));如果没有输入就结束 (progn;如果有输入,那么 (setvar "osmode" 0);捕捉设置为0 (setq ang1 (angtof (rtos JD 2 5));角度转换为角度弧 ang2 (+ ang1 1.570796)...
怎样编写
lsp
程序
答:
"cl")(princ));;;(defun c:tt()(command "undo" "1" )(princ))(prompt "\n<<NNN>>")(prin1)看这个行不行。把代码复制到记事本,扩展名改为*.
lsp
打开
CAD
,工具-->AutoLISP-->加载 加载保存的lsp文件 然后在命令行打nnn 就可以使用了》能用的话记得加分哦 o(∩_∩)o...
cad中
acaddoc.
lsp
是什么意思啊?
答:
LISP是一种高级
编程
语言,而AutoLISP则是专门为
AutoCAD
等AutoCAD软件系列定制的LISP方言。acaddoc.
lsp
文件通常用于在AutoCAD启动时自动加载特定的脚本或函数,从而实现对AutoCAD界面的定制或扩展AutoCAD的功能。具体来说,acaddoc.lsp文件可以包含各种AutoLISP代码,这些代码定义了如何修改AutoCAD的用户界面,如何添加新...
你好,
CAD LSP编程
,请教你一下
答:
getdist,用鼠标点选两个点得到距离 getreal,直接用键盘输入一个数值 上面两个是我暂时想到的。lisp是表语言,你的括号要成双成对才行。
请解读下下面的
LSP
程序,是在
CAD中
运行,用来标注面积的。
答:
. 0.8)));;写文字,0表示字体,62表示颜色1红,10表示坐标点,40表示高度,1表示;;文字内容,41表示文字宽度比例 ) (setvar "cmdecho" 0);;关闭命令行提示 (vl-load-com);;加载vlax扩展函数 (setq ss (ssget) ent (entlast));;选择对象并记录最后一个形成的对象 (command "....
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
用AutoCADLISP语言编程绘图
cadlisp源代码
cad的lisp程序大集合
cad的lisp插件怎么编写
lisp调用cad命令
CADlisp编程用什么软件
LISP用CAD命令写程序
100个实用的cadlisp脚本
cadlsp插件如何编写