www问答网
所有问题
当前搜索:
autolisp的cons
autolisp
输入的列表有缺陷
答:
(defun c:jsmj ( / #mj &ss #si #sn &cs )(princ "\n选择面积文字对象:")(if (setq #mj 0 &ss (ssget (list (
cons
0 "TEXT") (cons 8 "jsmj")))(repeat (setq #si 0 #sn (sslength &ss))(setq &cs (ssname &ss #si) #si (1+ #si))(setq #mj (+ #mj (atof...
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 (= ( ... ) 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
求一个选中一个矩形 生成一个外接圆的代码
答:
(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") (...
如图所示,
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
语言编辑
答:
(defun c:tes ( / ang k1 l n n1 n2 obj p1 p2);等分直线并绘制800长度的垂直直线 (vl-load-com) (initget 6) (if (and (setq n (getint "\n请输入等分数值")) (setq k1 (entsel "\n请选择直线")) (setq k1 (car k1)) (= (cdr (assoc 0 (entget k1))) "LINE")...
有点复杂的
autolisp
编程问题
答:
'(0 . "LINE") (
cons
10 p1) (cons 11 p2))) (vlax-ename->vla-object (entlast)));偏移对象(defun x1708162 (obj /obj) (vla-offset obj -2) (vla-offset obj 2) (vla-delete obj))写了一个
autolisp
程序,加载后,输入命令【TES】(命令你可以自己修改)就可以做到你的要求。
如何将cad文件里的文字批量快速转换成word的文字
答:
1: 是使用Adobe Acrobat 7.0 Professional软件(这是最新版的,可以使用较低版本的),将CAD文件转换成PDF格式,再次转换成DOC等格式的文件;在转换过程中原文件的版式不会发生改变。这各方法最好;2:可以使用复制和粘贴;四可以使用软件的导出功能;五用第一种方法形成的word文档,其本身是作为一个...
请改写一个autocad一次关闭多个图层的
autolisp
函数吧!
答:
要关闭吗?[Yes/No]<No>:")))(if (= pdbz nil) (setq pdbz "No"))(if (= pdbz "Yes")(command "_layer" "off" la "y" "")))(setq tcmlb (
cons
la tcmlb)ct (1+ ct)))(princ "\n未选取图元!"))(command "_undo" "e")(setvar "cmdecho" 0)(princ))
<涓婁竴椤
1
2
3
4
5
6
7
涓嬩竴椤
其他人还搜
cons和pros
cons and
concise
cons是什么意思
autolisp的cons