www问答网
所有问题
当前搜索:
autolisp的cons
autolisp
输入的列表有缺陷 ; 错误: 参数太多: (IF (= ( ... ) 1...
答:
(setq @pl (
cons
(list ($Vp->Lp (vla-get-startpoint &ob)) ($Vp->lp (vla-get-endpoint &ob))) @pl)))(defun $lxc-addpolyline ( &ob / )(foreach ob ($vp->lp (vla-explode &ob))(if (= (vla-get-objectname ob) "AcDbLine") ($lxc-addline ob) )(vla-erase ob)...
使用
autolisp
如何判断同一图层有不同类型的实体?
答:
需要循环判断才可以。(defun C:ZX90 ( / &k1 &kw1 @k1 i ss1 tc ty1 ty2) (setq TC (entsel "\n请选择参考图层")) (if (/= TC nil) (progn (setq TC (cdr (assoc 8 (entget (car TC)));得到图层 (setq &kw1 (ssget "X" (list (
cons
8 TC)));选择这个图层所有...
autoLISP
选择文字,选择包含X符号,但是不包括有L符号文字怎么选择?_百度...
答:
(setq &kw1 (ssget (list (
cons
0 "TEXT") (-4 . "<AND") (cons 1 "*[x-X]*") (cons 1 "~*L*") (-4."AND>") )));
请高手用
autolisp
语言绘制一系列半径逐渐变大且顶部交于一点的圆
答:
and (setq r1 (getdist "\n请输入初始圆半径")) (setq d1 (x1806291)) (setq n1 (x1806292)) (setq p1 (getpoint "\n请输入基点")) ) (progn (setq ss1 '()) (while (>= (setq n1 (- n1 1)) 0) (setq ss1 (
cons
n1 ss1)) ) (setq ss1 (...
autolisp
求一个选中一个矩形 生成一个外接圆的代码
答:
(setq pt_list (
cons
pt pt_list)))(setq len (length pt_list)));--- ;POLYLINE获得点列表子程序。;--- (defun polyline_get_pt_list ()(setq pt_list nil)(setq sub_ent_name ent_name)(setq sub_ent_name (entnext sub_ent_...
提取autocad的全部文字
答:
以下是提取CAD的一个尝试,不过需要利用
AUTOLISP
。1,首先养成好习惯,你要提取的文字应该在特定的几个图层。2,菜单--工具--
AutoLisp
--Visual Lisp 编辑器,把下面代码复制进去:(defun c:GTEXT()(setq la (getstring "\n请输入图层名: "))(setq ss (ssget "X" (list (
cons
0 "TEXT") (...
哪位大侠知道怎么把CAD里面的文字批量提取出来?当然还可以再写入进去...
答:
以下是提取CAD的一个尝试,不过需要利用
AUTOLISP
。1,首先养成好习惯,你要提取的文字应该在特定的几个图层。2,菜单--工具--
AutoLisp
--Visual Lisp 编辑器,把下面代码复制进去:(defun c:GTEXT()(setq la (getstring "\n请输入图层名: "))(setq ss (ssget "X" (list (
cons
0 "TEXT") (...
如图所示,
autolisp
读取.txt文件中的数据
答:
;声明一个空列表 (while data ;;如果内容不为空循环写入列表 (setq data_list (
cons
data data_list)) ;;第一个内容写入列表 (setq data (read-line ff)) ;;读取下一个 ) (setq data_list (reverse data_list)) ;;颠倒列表顺序 (close ff) ;;关闭文件 data...
请问在
autolisp
中如何才能在中途跳出循环啊,有没有类似c里面的如break...
答:
对于第一个问题,很遗憾,没有。但是仔细想下,既然用while了,有什么必要在a=40就退出呢?我猜你真实意图可能是其他变量在执行过程中满足条件就退出循环对吧,直接把条件列在whlie的条件里,与a<100用and连接能解决问题。对于第二个问题,
Lisp的
if语法本身就是(if <条件> <条件真执行> <条件假...
...值的相对大小在画直线(长度表示流速)时选择不同颜色的
autolisp
...
答:
设计速度(V)]: "))(if (= p3 "V") (ll_v) (progn (setq ls p3) (ll_d)))(princ));eline(defun thh(len pt h)(setq en_data (entget (car len))old_data (assoc h en_data)new_data (
cons
h pt)en (subst new_data old_data en_data));setq(entmod en));thh 在...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
涓嬩竴椤
其他人还搜