www问答网
所有问题
当前搜索:
autolisp的cons
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
错在哪里?
答:
(assoc 0 ssdata)))(if(or (= sstyp "TEXT") (= sstyp "MTEXT"))(progn (setq old_hh (assoc 40 ssdata))(setq new_hh (
cons
40 hh))(setq ssdata (subst new_hh old_hh ssdata))(entmod ssdata)))(setq i (1+ i)))(prin1));;;最后一个括号不是英文输入法输入的 ...
如何将cad文件里的文字批量快速转换成word的文字
答:
1: 是使用Adobe Acrobat 7.0 Professional软件(这是最新版的,可以使用较低版本的),将CAD文件转换成PDF格式,再次转换成DOC等格式的文件;在转换过程中原文件的版式不会发生改变。这各方法最好;2:可以使用复制和粘贴;四可以使用软件的导出功能;五用第一种方法形成的word文档,其本身是作为一个...
autolisp
怎么实现选块 将块内的填充后置呢?
答:
;;一键所有填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17(defun c:sx5 (/ sortents dict lst Doc) (setvar "cmdecho" 0) (setvar "blipmode" 0) (vl-load-com) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (vlax-for blockdef (vla...
Auto cad中的LISP语言是什么?有怎样的用途?
答:
AutoLISP
语言是在普通的LISP语言基础上,又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性求值语言,速度较慢,难以保密,可用任何文字编辑软件编辑,用纯文本的格式保存。AutoLISP语言中的一切成分都是以函数形式给出的,它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些...
有点复杂的
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】(命令你可以自己修改)就可以做到你的要求。
AutoLisp
程序求助,编写一个AutoLisp程序用来画图
答:
(defun c:tes ( / i n p1 p2 r r1 r2 r3 r4 ss1 ss2) (vl-load-com) (if (and (setq p1 (getpoint "\n请选择同心圆圆心")) (setq r1 (s180828a p1 "\n请输入第一个同心圆半径:")) (setq r2 (s180828a p1 "\n请输入第二个同心圆半径:")) (setq r3 (s180828a...
cad中的文字如何提取到word里
答:
1、点击“工具”——"
AutoLISP
"---VisualLISP编辑器 cad教程 2、打开编辑器后,点击“新建”,将下面的代码粘贴进去,然后保存,记住你保存的位置,以免等一下导入LISP时找不到该文件。(defun c:GTEXT()(setq la (getstring "\n请输入图层名: "))(setq ss (ssget "X" (list (
cons
0 "TEXT...
cad 中怎样将Z轴的数值改为0
答:
(if (= &ac0 "AcDbLine") (entmake (list '(0 . "LINE") (
cons
8 &tc1) (cons 62 &co1) (cons 6 &cx1) (cons 10 &sta) (cons 11 &end))) ) (if (= &ac0 "AcDbPolyline");4 (progn;;4 (setq &n1 (fix (vlax-curve-getEndParam &ob1)) &ss1 '() &n2 0 &p2 nil) (if...
Autolisp
对CAD二次开发如何返回图元之间的交点,求大神帮忙
答:
vla-intersectwith (vl-load-com)(defun c:getint( / ent1 ent2 ps)(setq ent1 (car (entsel "选择第一实体:")))(setq ent2 (car (entsel "选择第二实体:")))(print)(setq ps (obj_int ent1 ent2)));~~~;功能:返回两个对象的所有交点 ;参数: ent1、ent2 均为ename对象 (defu...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
涓嬩竴椤
其他人还搜