仿燕秀工具球标编号并加强功能
本帖最后由 lch8526 于 2018-3-16 08:02 编辑比燕秀工具中的球标编号增加了动态和水平垂直对齐功能。会自动保存球号设置。
请把这两个加到程序中
(defun c_c(color / ccc)
(setq ccc(acad_colordlg color nil))
(if (not ccc) (setq ccc color))
ccc
)
(defun c_img (key color) ;定义初始化颜色图像按钮数
(if color
(progn
(start_image key)
(fill_image 0 0 (dimx_tile key) (dimy_tile key) color)
(end_image)
)
)
)
lch8526 发表于 2018-3-16 08:03
把前面两个加上到，看看还差什么，我再补齐
CAD版本2007
加载正常，输入EE运行后出现选择对话框。
1.选择第一个，出现错误：
命令: ee LCH工具箱-球标编号V0.1
; 错误: *error* 函数中出错参数类型错误: lentityp nil
2.选择第二个，在CAD中点击出现错误：
命令: ee
LCH工具箱-球标编号V0.1
->当前编号:2文字高度:10
->指定序号引线起点或<退出>:; 错误: *error* 函数中出错参数类型错误: lentityp nil
3.选择第三个，在CAD中点击出现错误：
命令: ee
LCH工具箱-球标编号V0.1
->当前编号:2文字高度:10
->指定序号引线起点或<退出>:; 错误: *error* 函数中出错参数类型错误: lentityp nil (lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片
(lch:img "gread2" "D:\\lchwz\\球标编号\\ball-2" -2);圆点箭头球标编号幻灯片
(lch:img "gread3" "D:\\lchwz\\球标编号\\ball-3" -2);实心箭头球标编号幻灯片
程序里面的幻灯片地址需要自己修改 本帖最后由 lch8526 于 2018-3-17 08:26 编辑
ntwison 发表于 2018-3-16 22:59
CAD版本2007
加载正常，输入EE运行后出现选择对话框。
1.选择第一个，出现错误：
CAD2010~2016测试没有这样的问题，CAD2007没有测试过
你运行程序后把对话框截图给我看看，还有你D盘有没有“Program Files”这个文件夹？如果没有就新建一个或者把程序中"D:\\Program Files\\ballnumber.dat"这个改一下。
漂亮，正好可以学习下 感谢 lch8526 分享程序!!!! lch8526 发表于 2018-3-15 11:17
(lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片
(lch:img "gread2" "D:\\lch ...
; 错误: no function definition: C_IMG ntwison 发表于 2018-3-15 23:55
; 错误: no function definition: C_IMG
把前面两个加上到，看看还差什么，我再补齐 如果想插入一个球号能做到吗，保存后关闭，下次还能再编辑吗 ; 错误: no function definition: C_IMG
程序里没有这个函数