lisp整集工具箱操作

❶ *** 工具如何使用

问题一： *** 工具箱怎么使用 你好， *** 工具箱加载的方法
第一、打开AutoCAD，点击菜单“工具”-->“加载应用程序”-->调出对话框；
第二：点击对话框上启动组里的“内容...”-->点“浏览”，找到“ *** 工具箱5.6.VLX”，点“添加”，把工具箱添加进去，关闭对话框。
第三：输入命令y调出工具箱。

问题二：cad *** 工具箱怎么使用 你好， *** 工具箱加载的方法
第一、打开AutoCAD，点击菜单“工具”-->“加载应用程序”-->调出对话框；
第二：点击对话框上启动组里的“内容...”-->点“浏览”，找到“ *** 工具箱5.6.VLX”，点“添加”，把工具箱添加进去，关闭对话框。
第三：输入命令y调出工具箱。

问题三： *** 工具箱的使用 自动加载方法打开AutoCAD，输入命令:ap，点“内容...”，点“浏览”，找到工具箱，点“添加”，关闭对话框，重启AutoCAD软件；加载方法打开AutoCAD，点击菜单“工具”--》“加载应用程序”--》调出对话框；点击对话框上启动组里的“内容...”--》点“浏览”，找到工具箱，点“添加”，把工具箱添加进去，关闭对话框；重启AutoCAD；输入命令y调出工具箱。 *** 工具箱5.7 *** 工具箱5.7是AutoCAD平台下优秀插件，共有200个实用工具，提高绘图效率30%以上；无需安装，加载即可使用，绿色软件，不修改任何CAD系统设置！

问题四：cad *** 工具怎么用 *** 工具箱怎么打开？
(1)打开AutoCAD，点击菜单“工具”，“加载应用程序”调出对话框
(2)点击对话框上启动组里的“内容...”，点“浏览”，找到工具箱，点“添加”，把工具箱添加进去，关闭对话框
(3)重启CAD
(4)输入命令y调出工具箱
*** 工具箱破解版：3322.cc/soft/4266

问题五：CAD *** 工具怎么设置 CAD菜单：工具 加载应用程序 （找到.VLX程序）
命令: _appload 已成功加载 *** 工具箱5.7破解版.VLX。
命令: 正在初始化 VBA 系统...
*** 工具箱已加载，启动命令：y
命令:
在命令行键入 y 即可启动 *** 工具箱。

问题六：请问 *** 工具箱是干嘛的，怎么用？CAD中。 插件，下载到电脑后倒入到LISP中，直接快捷键调用即可，一般工具箱都有文档说明

问题七：cad *** 工具箱怎么用递增复制功能，麻烦详细回答 你先用DT命令，写一些文字(必须是以数字结尾)，然后使用 *** 工具的递增复制，点你刚才写的字，输入递增值(就是数字的间隔值)，空格确定，然后就点在你需要的地方点左键。你每点一次，复制的数字都是按照你刚才输入的递增值增加上去，自己试一下就清楚。
注：一定要DT命令，T命令不行，在天正里面，DT命令是电梯，肯定不行。就用T写后炸开就行了

问题八：CAD *** 工具箱作用大吗? 其实是这样的， *** 工具属于针对autocad没有的功能二次开发的小工具包，里面的功能你可能用的上，也可能很久都不会用，我推荐你还是下载一些专门针对你这个专业的设计软件，比如建筑的，你就下载建筑CAD，等等，这样对于的帮助要大一些

问题九： *** 工具箱的批量打印功能具体使用步骤 1.你的图框是标准的.也就是297*420,把图框进行块定义抚
2.BP命令弹出批量打印窗口.选择从图中选择图块或图层然后选择图框块.回车
3.回车后又回到批量打印面板,然后再选择选择批量打印图纸
把你想要打印的每个图框块选择.
4.之后调节打印设置.设置好你的打印线性纸张等.
5.调节好后.就预览咯.预览OK就打印..

问题十： *** 工具箱么加载后输入y或yy不能打开工具箱，为什么？求解 vista系统要关闭UAC功能才能使用工具箱
关闭VISTA里的UAC功能
第一种方法:
使用MSCONFIG关闭UAC
依次点击“开始 > 运行”，输入MSCONFIG，打开系统配置实用程序
选择Tools(工具)选项卡，向下滚动找到”Disable UAP” (目前的Windows Vista Beta 2中如此，至于以后的测试及正式版本中是否仍存在该项则不得而知)，选中该行。
点击“Launch”按钮
一个CMD窗口将会打开，当运行完毕后，将其关闭。
退出MSCONFIG，重启系统即可。
如果以后想要重新开启UAC功能，只需选中”Enable UAP”行，同样进行操作一次即可开启。
第二种方法:
使用控制面板关闭UAC
打开控制面板
在“User Account and Family settings(用户帐户与家庭设置)”中点击”Add or remove user account”
选中某一个用户帐户，如Guest。
在该用户帐户的属性页中，点击”Go to the main User Account page”链接。
在”Make changes to your user account” 页中，点击”Change security settings” 链接，以更改安全设置
在”Turn on User Account Control (UAC) to make your puter more secure”页中，去除”Use User Account Control (UAC) to help protect your puter”项的选择，然后按“Ok”按钮。

❷ CAD,求大神编辑lisp,把所有块中的所有对象颜色修改为随图层！谢谢！

在cad中使用Setbylayer命令即可强制所选元素特性按图层设置，如颜色、线型等。

❸ 贱人工具箱如何编号如一个圆有很多个不同样的图型，编成1到500，

我用贱人尝试过，不会弄，后来下载了一个lisp，用text编辑的数字可以复制递增。希望对你有所帮助。如下：
(defun c:gf()
(setq bc (getint "\n 请输入步长:"))
)

(defun c:saa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 设置步长命令为:gf,初始步长为1")
(prompt "\n 请选择不需要更改的实体:")
(if (= bc nil)
(setq bc 1)
)
(setq ddjjqq (ssget))
(setq entt (entsel "\n 请选择一个文字:"))
(setq ent (car entt))
;(setq pt1 (cadr entt))
(redraw ent 3)
(setq dxf (entget ent)) ;联合列表
(setq wenzizu (assoc 1 dxf)) ;点对列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻译字符

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前缀
(setq shuzi (substr wenzi (+ wei 1))) ;取出字符串形式的数字
(setq shishu (atoi shuzi)) ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判断第一个字符是什么
;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么

(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;

(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">"))
) ;
;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
)
(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
) ;end if

(setq ent1 (entget (entlast))) ; ;此处为一个判断
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n))
;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui c))
(setq d (strcat qianzhui "0" c))
) ;
(setq e (cons 1 d))

(if (> banben 2004)
(progn ;
(command "" ddjjqq "" pt1 pt2 "")
(command "" ent "" pt1 pt2 "")
) ;end progn

(progn ;
(command "" ddjjqq "" pt1 pt2 )
(command "" ent "" pt1 pt2 )
) ;end progn
); end if ; ;此处为第二个判断
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

) ;end while
) ;end defun

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;; 以下为输入单个字的命令 ;;;;;;;;;;;;;;;;

(defun c:sa()
(setq banben (ver))
(ddd banben)
(setq banben (atoi banben))
(prompt "\n 设置步长命令为:gf,初始步长为1")
(if (= bc nil)
(setq bc 1)
)

(setq enty (entsel "\n 请选择一个文字:"))
(setq ent (car enty))
;(setq pt1 (cadr enty))

(redraw ent 3)
(setq dxf (entget ent)) ;联合列表
(setq wenzizu (assoc 1 dxf)) ;点对列表
(setq wenzi (cdr wenzizu)) ;文字

(setq wenzilen (strlen wenzi))
(setq fanyihou (vl-string-translate "1234567890" "##########" wenzi)) ;翻译字符

(setq wei (vl-string-search "#" fanyihou)) ;找出#的位置

(setq qianzhui (substr wenzi 1 wei)) ;取出前缀
(setq shuzi (substr wenzi (+ wei 1))) ;取出字符串形式的数字
(setq shishu (atoi shuzi)) ;把数字改为实数

(setq pt1 (getpoint "\n 请选择一个点:"))
(setq pt2 (getpoint pt1 "\n 请选择第二点:"))
(setq n 0)

(while pt2

(setq lll (substr wenzi 1 1)) ;判断第一个字符是什么

;(setq llll (substr wenzi 4 1)) ;判断第四个字符是什么
(cond

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( (= lll "<") ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b)) ;
(if (< b 10) ;
(setq d (strcat qianzhui "0" c ">"))
(setq d (strcat qianzhui c ">")) ;
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;

(setq ent1 (entget (entlast))) ; ;此处为一个判断
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;end progn ;
) ;end first ;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;如果要加判断的话,请选择这里

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(t ;
(progn ;
(setq b (+ shishu bc n)) ;
(setq c (itoa b))
(if (< b 10) ;
(setq d (strcat qianzhui "0" c))
(setq d (strcat qianzhui c))
) ;
(setq e (cons 1 d))

(if (> banben 2004) ;
(command "" ent "" pt1 pt2 "")
(command "" ent "" pt1 pt2 )
) ;
;此处为第二个判断
(setq ent1 (entget (entlast))) ;
(setq txtzh1 (assoc 1 ent1)) ;
(setq ent1 (subst e txtzh1 ent1)) ;
(entmod ent1) ;
(princ) ;
) ;
) ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

) ;end cond

(setq n (+ bc n))
(setq pt2 (getpoint pt1 "\n 请选择第二点:")) ;pt1决定有没有显示线

) ;end while
(princ)
) ;end defun

;;;;;;(wcmatch "SHZ1G" "*[1234567890]*") 可以找到是否只有一个数字

(defun ddd (#a)

(setq #b (vl-string->list #a))
(setq #c (vl-remove-if '(lambda (x) (> x 57)) #b))
(setq #d (vl-remove-if '(lambda (x) (< x 46)) #c))
(setq #e (vl-remove 47 #d)) ;此句是去掉/的语句
(setq banben (vl-list->string #e))

❹ 【Auto CAD】 求LISP 程序包

Lisp工具箱
链接：
工具箱程序下载：http://www.xdcad.net/forum/showthre...0022#post760022

工具箱是个平台，需要加入工具程序才能真正的发挥作用。希望大家能交流一下自己整理的工具程序。
作为开头，我把一段时间来在本版块下载的工具程序打了个包，目前有35个不同类型的工具，其中有一些非常好用的。
欢迎跟贴自己整理的程序集。

安装方法：
1. 把压缩文件解包到c:\program files\lisptbox\lisp目录下。
2. 在工具箱里用读取文件或合并文件的方式调入上述路径内的tools1.tbx文件就可以了。

说明：
这个包适用于工具箱程序的所有版本，不过较新的版本有更好的支持，如在1.5版以后可以生成下拉菜单，在2.0版里程序是分组的。

包内所有的程序均来源于公开渠道。版权归各自作者所有，如作者不同意这种发布方式请声明，本人将删除相关程序。

本程序包仅供应用上的参考，不保证适用性。

❺ lisp程序里的getvar

很简单的一个系统变量就能获得，参见下面代码：

(setq pt (getvar "viewctr"))

如果你还想获得屏幕的四专个角点的坐标，可以利用属系统变量viewsize screensize配合上面得到的屏幕中心坐标获得。

下面在给你个代码，可以获得当前拾取框的高度，在你选取实体的时候这个代码很有用：

;|
求拾取框的高度
|;
(defun $XDLSP_Drawing_getPickboxHeight ()
(* (/ (getvar "pickbox") (cadr (getvar "screensize"))) (getvar "viewsize"))
)

上面代码摘自晓东工具箱里面的系统代码库里面的代码。