;;本专题所讲述的内容是人机交互以及常规数据处理技术;;★★★01.人机交互★★★;;△△△键盘输入交互△△△(getint "请输入整数");;从键盘输入整数,如果不是整数则重复提示输入整数直到输入的是整数.类似的函数[输入整数 getreal][输入字符串 getstring][控制和输入关键字 initget getkword] ;;△△△数据输出△△△(princ "The \"allowable\" tolerance is\"&quo…

Handling Automation errors in Visual LISP 翻译自原文Kean's blog:http://through-the-interface.typepad.com/through_the_interface/2006/08/handling_automa.html 自从VLisp被推广,开发者便利用它的能力优势来引用COM自动化接口.这种使LISP平台增加许多新的扩展的功能,就像你能通过召唤ObjectARX 程序来实现定义LISP函数.但是,自动操作LISP…

说明:Visual Lisp属性的获取.赋值和方法的执行有多种形式.然而对于初学者来说一次性就要全部掌握显然是没有必要的,有时候每种方法都是通用的功能都一样我们就没有必要把所有方法都记住.我们只需要掌握常用的通用性最强的即可.这里方法和属性只用下面几种方式,对于方法名和属性名统一用双引号 “” ,且第一个字母大写,避免混乱. 知识点:;;;查看对象的属性和方法(vlax-dump-object obj T) ;;;方法与属性是否适用于某对象(vlax-property-available-p o…

表处理大全;;★★★01.创建表★★★(setq lst '());;创建一个空表(list 1 2 3 4) '(1 2 3 4) ;;构造表的两种形式(vl-list* 1 "TT" 2);;构造表,如果最后一个参数是原子则返回点对(1 "TT" . 2),如果只有单一原子则返回原子,如果最后一个参数是表则返回表 ;;★★★02.表元素获取和表修改更新★★★(car '(1 2 3 4));;获取表的第一个元素1(cdr '(1 2 3 4));;获取去掉第一个…

图元选择集专题;;★★★01.选择集操作★★★(setq ss (ssadd));;创建一个空选择集(ssadd (car(entsel)) ss);;将点取的图元添加到ss选择集中,可以不用setq语句图元便加入ss所指向的选择集(ssdel en1 ss);;将en1图元从ss中删除(ssmemb (car (entsel)) ss);;测试图元名所表示的对象是否在选择集中,在则返回图元名,否则返回nil(ssname ss 0);;根据索引获取选择集中的图元名.使用repeat或者whil…

;;关于块 ;;(0)模型空间→块表记录→块图元:顶层的是模型空间→模型空间下有很多图元和一些块表记录→块表记录又有很多图元(此时块表记录就相当于模型空间),一个块表记录可以有多个insert块→同一块表记录的insert块之间的属性可以不同,其他相同. ;;(1)图中entsel获取到的是insert块图元名 ;;(2)块中可能含有属性,通过这个insert块图元名来获取和修改这个块的属性 ;;(3)块中属性图元的上级对象是这个insert块:属性图元组码表的330对应就是这个Insert块图…

两种出错处理方式:一种是对出错函数进行重定义,一种是对错误进行捕捉处理. ;;=================================================================================================== ;;=================================================================================================== ;;=======…

;;驱动器.目录.文件.和注册表;;★★★01.获取并创建驱动器盘符组成的表★★★(setq Drives (vlax-get-property (vlax-create-object "Scripting.FileSystemObject") "Drives")) ;;获取驱动器集合(setq DrivesPathLst '()) ;;设定存储驱动器盘符路径的空表 (vlax-for tempt Drives ;;遍历驱动器集合获取驱动器路径属性并放入驱动器路径存…

(vlax-make-variant) ;;创建一个未初始化的变体 ;;01.整型值变体(setq myvar (vlax-make-variant 10)) ;;创建整型值变体,返回 #<variant 3 10>(vlax-variant-type myvar) ;;获取变体类型,返回 3 (vlax-variant-value myvar) ;;获取变体中的值 ,返回10 ;;02.双精度值型变体(setq myvar2 (vlax-make-variant 10.2)) ;;返回 #&…

(defun c:tt (/ ie-obj) (setq ie-obj (vlax-get-or-create-object "Msxml2.xmlhttp")) ) (vlax-invoke-method ie-obj 'setRequestHeader "If-Modified-Since" "q") (vlax-invoke-method ie-obj "Send") ) (setq s (vlax-invoke-met…