仿燕秀工具球标编号并加强功能

lch8526

比燕秀工具中的球标编号增加了动态和水平垂直对齐功能。会自动保存球号设置。
请把这两个加到程序中
  (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)
      )
    )
  )

ntwison

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

lch8526

(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

ntwison 发表于 2018-3-16 22:59
CAD版本2007
加载正常，输入EE运行后出现选择对话框。
1.选择第一个，出现错误：

CAD2010~2016测试没有这样的问题，CAD2007没有测试过
你运行程序后把对话框截图给我看看，还有你D盘有没有“Program Files”这个文件夹？如果没有就新建一个或者把程序中"D:\\Program Files\\ballnumber.dat"这个改一下。

ntwison

漂亮，正好可以学习下

yoyoho

感谢 lch8526 分享程序!!!!

ntwison

lch8526 发表于 2018-3-15 11:17
(lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片
(lch:img "gread2" "D:\\lch ...

; 错误: no function definition: C_IMG

lch8526

ntwison 发表于 2018-3-15 23:55
; 错误: no function definition: C_IMG

把前面两个加上到，看看还差什么，我再补齐

renhaitao_nice

如果想插入一个球号能做到吗，保存后关闭，下次还能再编辑吗

duotu007

; 错误: no function definition: C_IMG
程序里没有这个函数