[原创]：自动给图名增加合适长度的下划线及比例

它山之石

;;;V050111 新增程序
;;;1、本程序的功能为图名格式自动修正，当所选字符无下划线及比例时自动添加。
;;;   隐含比例为1：100。当有下划线及比例时自动适应图名长度并保持比例值不变。

;;;V050121 新增功能
;;;1、当未自动选取到标注比例时提示绘图比例。
;;;2、增加了自动判别出图比例的功能。程序隐含当选取到的标注字高＞1000时为1:150。
;;;3、将所点选的字符（包括重生成的下划线及比例）图层改为“文字__图名”。

;;;V050128 新增功能
;;;1、修正了有时会删除图名内容字符串的问题。


;;;V050526 新增功能
;;;1、不再需要晓东API的支持。


　　此程序仅适用于结构专业写图名用。当图名字符串下只有一根粗线时（建筑喜欢这样做）程序会出错。
　　加载后在命令行输入“TMGS”即可运行。使用中有什么问题请与我联系。
　　程序为VLX文件，R14版本不适用。

它山之石

　　再贴个示例图，当你将1－1修改为1a－1a时会发现原来的下划线已经不合适了，此时只要运行俺这个程序就OK了。
　　如果你的1a－1a还没有下划线及比例时，俺这个程序就会自动建立。
　　效果如图示下面那个。　

xgwl

实用的好东东! 不知是否支持天正6.x的文字呢?

xyp1964

按照《房屋建筑制图统一标准》（GB/T 50001—2001），图名字符串下确实只有一根粗线。

ydf7332462

能增适于规范的一根粗线吗?

xyp1964

先下载"xyp_lib.lsp"：http://www.xdcad.net/forum/showthre...threadid=325268

[php];;;下划线
;;;下划线加粗并自动确定位置,按1:100出图考虑，线宽60，字与线间距150
(load"xyp_lib.lsp")
(defun C:test062 (/ e m pt1 pt2 x1 y1 x2 y2 pt1 pt2)
  (cmdla0)
  (setvar "osmode" 0)
  (setbl)
  (setq e (car (entsel "\n选择文字 : ")))
  (command "ucs" "Entity" e)
  (setq        M   (textbox (entget e))
        pt1 (car M)
        pt2 (cadr M)
        x1  (car pt1)
        y1  (cadr pt1)
        x2  (car pt2)
        y2  (cadr pt2)
        y1  (- y1 (* 150 SC))
        y2  (- y2 (* 150 SC))
        pt2 (list x2 y1)
        pt1 (list x1 y1)
  )
  (command "pline" pt1 "w" (* 60 sc) "" pt2 "")
  (command "ucs" "")
  (cmdla1)
)[/php]

它山之石

　　1、XYP所言不虚。《统一标准》给出的示例确实是只有一根粗线，但似乎也并没有规定不能再画一根细线。《建筑结构制图标准GB_T 50105_2001》也规定板底钢筋用圆弯钩。PKPM画出来的不也是直弯钩吗？
　　2、探索者的写图名程序是用了个选项开关来给用户自己确定是否再画一根细线。（如图）
　　3、俺的这个程序本来目的是将长度不合适的下划线进行修正。后来才增加的没有下划线及比例时自动添加功能。如果大家希望是单线，俺会修正这个程序。
　　4、你的程序先将坐标系重新定义也许会避免一些错误，还有利用textbox 函数也值得俺学习。

ss1025

请教楼上二位，你们用什么软件截图的？
另外，它山兄对探索者看来用的蛮熟的，还有什么高招请多指教。

它山之石

1、俺用的是HyperSnap。
2、TSSD俺也只是略知一二。

xgwl

不知怎么回事, 如果修改文字, 即增加几个字,程序会将已经加好的下划线会自动修正! 但再减掉几个字,用这个程序去修改结果就不正确了,不知其他朋友有没有这样的情况?

spacesmith

请问下载的文件怎么用啊？

它山之石

　　俺测试时没出现斑主说的这种情况。增减都可以。也就是字符串变长或变短都能正确处理。
　　斑主能把你修改过的图形文件传上来看看吗？

　　另楼上的朋友，文件下载后先用WINRAR解压缩，再将TMGS.VLX文件加载到CAD中（或者直接拖到CAD窗口中，这应该会吧），在命令行键入“TMGS”就可运行程序了。至于用途可以见一楼说明。

cq_qg

好倒是好，不过对于我不是太完美，我们院的比例是标注在线的下方，并且不是每个都要标比例的。

它山之石

最初由 cq_qg 发布
[B]好倒是好，不过对于我不是太完美，我们院的比例是标注在线的下方，并且不是每个都要标比例的。 [/B]

　　是啊，根本就没有什么完美的事情。有人要画一根粗线，有人要再加一根细线，有人要将比例与图名平齐，有人要与线平齐，还有人要...　
　　呵呵，合适就用，不合适就算了。

xyp1964

“标注在线的下方”不符合制图规范！