LISP样例程序
静喧
这个作者很懒,什么都没留下…
展开
-
属性文字转TEXT文本的lisp程序
;; 属性转文本 (defun C:TAG2TXT () (setq sset (ssget '((0 . "ATTDEF")))) (setq num (sslength sset) itm 0) (while ( itm num) (setq hnd (ssname sset itm)) (setq ent (entget转载 2013-03-13 14:50:33 · 4250 阅读 · 0 评论 -
将图纸中所有的块的名称改为大写
;;By LUCAS(defun C:KDX (/ BLOCKS NAME) (setq BLOCKS (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) ) (vlax-for BLK BLOCKS (if (not (wcmatch (setq NAME (转载 2013-03-19 14:34:23 · 650 阅读 · 0 评论 -
填充对象样例程序
(defun c:mhatch () (setq cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "UNDO" "G") (setq sset (ssget '((-4 . "")))) (if sset (progn (setq num (sslength sset) itm转载 2013-03-22 09:11:47 · 579 阅读 · 0 评论 -
比较大小lisp程序
(defun max(x y) (if(> x y)x y))(defun c:work() (setq a (getreal "input the first number:")) (setq b (getreal "input the second number:")) (setq c (max a b)) (print (list "the max num转载 2013-03-22 09:15:18 · 1185 阅读 · 0 评论 -
画一个矩形程序
;画一个矩形(defun c:rect(/ p1 p2 p3 p4);定义命令名,及定义局部变量,注意斜杠后面需要有空格。 (setq p1 (getpoint "\n输入第一个点:")) (setq p3 (getpoint "\n输入对角点:")) (setq p2 (list (car p3) (cadr p1)));获取p3的x值及p1的y值来确定矩形的第二点。 (se转载 2013-03-22 09:14:08 · 1016 阅读 · 0 评论 -
获取默认打印机名称
(setq def_printer_name (vla-get-defaultoutputdevice (vla-get-output (vla-Get-Preferences (vlax-get-acad-object)))))原创 2015-04-02 09:11:57 · 3486 阅读 · 0 评论 -
加载lisp文件到每一个打开的图纸中
ZWCAD:把加载的语句写到 C:\Program Files (x86)\ZWCAD+ 2015\Support\en-US 下面的 ZWCAD2015doc.lsp 里就可以在每个文档自动加载了ACAD:ACADLSPASDOC控制是将 acad.lsp 文件加载到每个图形中,还是仅加载到任务中打开的第一个图形中。0仅原创 2015-05-28 09:57:07 · 2772 阅读 · 0 评论