www问答网
所有问题
当前搜索:
autolisp的cons
autolisp
程序运行不了:要求更改图名文字后,使得下面的下划线跟着文字的...
答:
选择的时候,选择文字,然后根据文字位置选择你的直线或多段线然后修改直线的长度来达到你的要求 (setq ss (ssget (list (
cons
0 "TEXT")));;选择文字(setq i (+ i 1))(repeat (sslength ss) (setq &k1 (ssname ss i);;取得文字 i (+ i 1) #k (entget &k1);;文字属性列表...
求
autolisp
圆外一点画切线 并且修剪切线间的一段圆弧~
答:
)(entmake (list '(0 . "LINE") (
cons
8 &tc1) (cons 10 pt1) (cons 11 pt2)));绘制切线 );repeat );progn;2 );if;2 (entdel ent2) ;删除绘制的圆 (setvar "osmode" #os1));progn;1 );if;1 (prin1));复制到记事本,以【.lsp】为后缀命名,
autolisp
加载,命令【TES】
如何使用
AutoLISP
语言例程
答:
ss (ssget "X" (list (
cons
0 "*POLYLINE")(cons 8 la)))i (sslength ss)tv 0 op 0)(while (not (minusp (setq i (1- i)))(setq en (ssname ss i))(command "_.AREA" "_E" en)(cond ((= rv "Length")(setq tv (+ tv (getvar "PERIMETER")))(T (setq tv (+ ...
autolisp
不知道怎么不能把创建的物体移动到制定的图层呢?
答:
;--- (defun layer_list()(setq list_layer nil)(setq n 0)(setq name_layer (tblnext "layer" t))(setq list_layer (
cons
(cdr (assoc 2 name_layer)) list_layer))(while (setq name_layer (tblnext "layer"))(setq list_layer (cons (cdr (assoc 2 name_layer)) list_layer))...
autolisp
关于怎么替换标注的文字
答:
文字内容代码为1 (defun c:b1()(setq gj_list_32 (entget (car (entsel)))gj_text_old_32 (assoc 1 gj_list_32)gj_text_new_32 (
cons
1 "%%1308@200(2)") ;用于8间距200,一级钢 gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32))(entmod gj_list_32)(princ...
vba在cad中画直线和圆弧多段线
答:
VBA绘制的话,我只有绘制椭圆的时候才使用,因为椭圆分割后,发现VBA的计算角度才正确,
autolisp
计算的角度会有问题,查看属性会发现有偏差。autolisp里面的entmake函数绘制速度很快,1、直线 (entmake (list '(0 ."LINE")(
cons
10 pt1)(cons 11 pt2)))2、两顶点多段线(多顶点类似)(entmake (...
autolisp
怎么提取点对的元素比如(car(1 . "52.7")); 错误: 参数类型错误...
答:
(cdr '(1 . "52.7"))(setq testA (
cons
1 "52.7"))(cdr testA)你若是想用 (nth 1 **) 或 (last **)(setq testA (list 1 "52.7"))(nth 1 testA)(last testA)这样也是可以的 注意列表和原子表的区别
autolisp
怎么构建点坐标
答:
(setq a (list (
cons
3 8) (cons 23 18) )) (setq b a) 命令: !a ((3 . 8) (23 . 18)) 命令: !b ((3 . 8) (23 . 18))
求一
autolisp
程序,要求是选择一个文字,那么能够把这个相同的文字全部...
答:
(if (and #kw (setq #kw (ssget (list (
cons
0 "TEXT") (cons 1 #kw)))(progn (initget "V C") (setq #k2 (getkword "\n删除选中的文字或[移动(V)/复制(C)]: <删除> "))(if (null #k2)(command "_.Erase" #kw "")(cond ((member #k2 (list "v" "V")) (comman...
autocad vba 如何得到最新的图元
答:
;
autolisp
里面: (entmake (list '(0 . "LINE") (
cons
10 '(5 13 0)) (cons 11 '(5 27 0)));绘制直线 (setq ent (entlast));得到最后图元 (setq obj (vlax-ename->vla-object ent));转换为vlax图元 ;vlisp里面 (setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vl...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
涓嬩竴椤
其他人还搜
cons和pros
cons and
concise
cons是什么意思
autolisp的cons