用工具选项板打造自己的工具箱
自定义自己的工具选项板关于工具选项板自定义命令的一些思路，可以在里面用LISP来打造自己的专属工具面板
一、工具选项板的打开Ctrl+3,或者命令行输入ToolPalettes
二、找到命令工具样例选项
将此复制一份，编辑成自己的就可以了，下面提供一些我自己弄的一些代码分享给大家，在这里抛砖引玉，希望大家广议思迁，做出更好的东西来。
1、图元信息：(entget (car (entsel)))
2、超级清理：(command "-purge" "a" "*" "n")
3、按层全选：
(sssetfirst nil (SSGET "X"(LIST '(0 . "*")(assoc 8 (entget (car (entsel "按层全选"))))))
4、设置为当前层：
(command "layer" "set" (cdr(assoc 8(entget (car (entsel "置为当前层"))))) "")
5、测距：
(apply '+(mapcar '(lambda(x)(abs(apply '- x))) (mapcar 'list (getpoint)(getpoint))))
6、打开网站：(command "BROWSER" "http://bbs.mjtd.com")
目前就弄了这些，希望大家将类似的代码发出来，一起学习
tigcat 发表于 2022-9-15 17:05
;支持楼主，我来补几个用到的
;属性获取
(foreach x (entget (car (nentsel)))(princ x)(terpri))
;打开某软件项目
(command "start" "D:\\a\\b.yjk")
这个没看懂，测试几次没成功，
我想实现在工具选项板中点击命令后，用adobe打开指定的PDF文件。
请大哥指点下吧
本帖最后由 tigcat 于 2022-9-15 17:24 编辑
;支持楼主，我来补几个用到的
;属性获取
(foreach x (entget (car (nentsel)))(princ x)(terpri))
;多线200
(setvar "plinewid"200)
;局部再生（关闭对象捕捉后用)
(command "move" (ssget) "" "@" "@")
;合并线(线宽为0)
(command "PEDIT" "M"(ssget) "" "Y" "J" "0.001" "W" "0" "")
;打开某软件项目
(command "start" "D:\\a\\b.yjk")
;打开某记事本文件（start操作不了的就用startapp)
(STARTAPP "NOTEPAD" (findfile "D:/360极速浏览器下载/结构力学求解器2.6/result.txt"))
重点是复制一份，编辑成自己的就可以了没有说呀 本帖最后由 vitalgg 于 2022-9-15 16:56 编辑
关于楼主描述的 视频转述, 看前面1分多钟的就可以了。后面的玩脱了，可能是代码太长无法复制，可以定义成函数，直接输入函数代码即可。
https://www.ixigua.com/7143520142897775111
vitalgg 发表于 2022-9-15 16:34
关于楼主描述的 视频转述, 看前面1分多钟的就可以了。后面的玩脱了，可能是代码太长无法复制，可以定义成函 ...
05就有命令表达式，08就没了。你这个是哪个版本，又有了命令表达式？ 自贡黄明儒 发表于 2022-9-15 17:03
05就有命令表达式，08就没了。你这个是哪个版本，又有了命令表达式？
2016 2022都有。
原生工具就是好。 是不是可以当 dcl 工具箱使用了，直接加载某个文件 把自己插件地址放进搜索文件地址，可以用load 函数加载 自己的插件，相当于不用ap加载了。新建图纸，也可以直接用 vitalgg 发表于 2022-9-15 16:34
关于楼主描述的 视频转述, 看前面1分多钟的就可以了。后面的玩脱了，可能是代码太长无法复制，可以定义成函 ...
我感觉是有长度限制，太长不行的。如果能知道这个长度环境变量并且看可以修改就好了