www问答网
所有问题
当前搜索:
autolisp的cons
我的这段
autolisp
程序在检查时说参数过多,请问应该怎么改?谢谢_百度...
答:
你的变量是全局变量么?没的输入肯定参数太多,你要定义你函数里面的变量。
关于
autolisp
函数entnext的问题
答:
a 的后面没有图元了也就是说a是最后一个图元。entnext a 就是找到a后面产生的图元,因为a就是最后一个,所以返回为nil entlast就是返回最后一个图元,entnext是返回下一个图元
AutoLisp
中如何修改所有字的字体为统一样式?
答:
安装工具(超越工具集),安装完成后,打开autocad,里面会有一个界面:这个说明你已经安装成功。修改字体的话:输入命令(WZS),输入(S)(设置),跳出选择窗口,这个时候,就可以修改字体了。
autolisp
怎么通过get函数获取 一个已有圆的圆心坐标
答:
获取圆心坐标方法,(setq ent (entlast));获取最后一个对象 (setq obj (vlax-ename->vla-object ent));转换为vlax对象。(setq pt1 (vlax-get obj 'Center));取得圆心坐标 (setq mj1 (vlax-get-Area obj));取得对象面积
从别人电脑拷贝过来的CAD文件出现
Autolisp
应用程序源代码怎么处理丶都说...
答:
这是CAD病毒,这种病毒使用电脑管家就可以查杀的,电脑管家的杀毒部分采用了新一代的管家反病毒引擎鹰眼,它有新的机器学习技术,CPU虚拟执行技术,查杀率提高10%,资源占用极低,可以在清除病毒的同时,修复被病毒感染的文件 腾讯电脑管家企业平台:http://zhidao.baidu.com/c/guanjia/ ...
你好,CAD统一乘以一个数字的插件能不能给我一个。
答:
autolisp
程序,代码如下:(defun c:tes ( / #g1 &k1 &kw1 &n1 &n2) (if (and (setq &n1 (getreal "\n请输入要相乘的数值")) (setq &kw1 (ssget '((0 . "text,mtext") (1 . "~*[~+-.0-9]*" ))) ) (progn (while (setq &k1 (ssname &kw1 0)) (setq...
求个将数据导出到EXCEL的
AutoLISP
答:
;建立表格 );; (repeat L (setq &kw1 (entget (ssname &kw n)) %k1 (cdr (assoc 10 &kw1)) ;;取得文字坐标 %k2 (cdr (assoc 1 &kw1)) ;;取得文字内容 ss (
cons
(list %k1 %k2) ss);;加入选择集 n (+ n 1) ) ) (setq ss (vl-sort ...
autolisp
语言的while语句,循环体是那部分
答:
对测试表达式进行求值,如果它不是 nil,则执行循环体中的表达式,重复这个过程,直到测试表达式的求值结果为 nil (while testexpr [expr...])while 函数在 testexpr 为 nil 之前不断运行。参数 testexpr 包含测试条件的表达式。expr 在 testexpr 为 nil 之前要求值的一个或多个表达式。返回值 最后...
CAD怎么找出极短的线
答:
只有
autolisp
可以解决。;快速选择小于指定长度的曲线autolisp程序(defun C:TES ( / &kw1 dis1 ent ss1 x) (vl-load-com) (initget 6) (if (and (setq dis1 (getdist "\n请输入指定长度")) (princ "\n请选择曲线") (setq &kw1 (ssget '((0 . "*LINE,CIRCLE,ARC,HELIX,ELLIPSE...
在
autoLISP
里面,搜索文字的时候,搜索不到文字,需要第二次搜索才可以找到...
答:
注意一下视野,AutoCAD命令和
AutoLisp
程序好多情况和窗口有关系。
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
其他人还搜