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

引线标注程序改进

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

附件lisp程序要求改进，
         程序“单件引线标注.lsp”,是按图框放大系数，标注的序号字体及字体下面
横线自动放大，适合图框放大的模式，随鼠标移动方向序号可向左、右标注，
但该程序不能标注向上和水平方向的连续序号。
         程序“自动编号XH.VLX”可以连续向上和水平方向标注，但只有一个方向
，不能按图框放大调整字体及横线大小。
         要求把程序“单件引线标注.lsp”参考“自动编号XH.VLX”程序功能，增加连
续向上和水平方向标注，水平方向要有左右两个方向，见附图，其余参数按“单
件引线标注.lsp”程序不变。
http://bbs.mjtd.com/forum.php?mod=attachment&aid=ODAyNjl8OGI5N2M0ZDJ8MTM4NzMyNzk5MXw0MTQ2Mzh8MTA4MTM0&noupdate=yes 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/static/image/common/back.gif
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)))
页: [1]
查看完整版本: 引线标注程序改进