引线标注程序改进

s678z · 发表于 2013-12-18 08:58:08

本帖最后由 s678z 于 2013-12-29 10:26 编辑

附件lisp程序要求改进，
         程序“单件引线标注.lsp”,是按图框放大系数，标注的序号字体及字体下面
横线自动放大，适合图框放大的模式，随鼠标移动方向序号可向左、右标注，
但该程序不能标注向上和水平方向的连续序号。
      程序“自动编号XH.VLX”可以连续向上和水平方向标注，但只有一个方向
，不能按图框放大调整字体及横线大小。
      要求把程序“单件引线标注.lsp”参考“自动编号XH.VLX”程序功能，增加连
续向上和水平方向标注，水平方向要有左右两个方向，见附图，其余参数按“单
件引线标注.lsp”程序不变。

2013-11-21 09:22 上传
下载附件 (8.84 KB)

自贡黄明儒 · 发表于 2013-12-19 09:15:49

这个Z版写过了,而且不错，你好好找找

菜卷鱼 · 发表于 2013-12-26 15:40:32

http://bbs.mjtd.com/thread-108800-1-1.html

s678z · 发表于 2013-12-27 08:03:10

本帖最后由 s678z 于 2013-12-27 08:10 编辑

菜卷鱼发表于 2013-12-26 15:40
http://bbs.mjtd.com/thread-108800-1-1.html

箭头式样的引线能否改成多义线，这样和公司其他同事出图一样。
这悬赏的金币怎么给不了你，请管理员看看。

菜卷鱼 · 发表于 2013-12-27 09:41:20

(entmake (list '(0 . "LEADER") '(100 . "AcDbEntity") '(100 . "AcDbLeader") (cons 10 pt0) (cons 10 pt1)(cons 10 pt2)))
改成
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 2) (cons 10 pt0) (cons 10 pt1) (cons 10 pt2)))

账号		自动登录	找回密码
密码			注册

[源码] 引线标注程序改进

相关帖子

评分

评分