[原创]：文字索引标注程序(又有更新了!!!!)

jiega

更新界面

whcdy

能做成支持R14的吗？谢谢先！

jiega

最初由 whcdy 发布
[B]能做成支持R14的吗？谢谢先！ [/B]

该使用高一点版本的CAD了---现在的很多程序都需要cad2000以上的支持,很多函数R14不支持.

liminzheng

我用的cad是2005，字体高度每次都默认是3.0，能不能把下次标注时利用上次的字高？这样在此标注时省了改字高这一步。

另外若只标一行文字的话，所注的文字跑到下来去了。

(除了上面两点，其实很不错了，我认为这个程序主要优点是操作简便，若能把上面两点该过来，应改是完美了)

hstea

更新了！下载试试看！

liminzheng

最初由 liminzheng 发布
[B]我用的cad是2005，字体高度每次都默认是3.0，能不能把下次标注时利用上次的字高？这样在此标注时省了改字高这一步。

另外若只标一行文字的话，所注的文字跑到下来去了。

( [/B]

15楼的那个程序，还存在上面的问题，可能有点不兼容把，我的用法是在天正6.05+cad2005。

hstea

是的！liminzheng 说的情况存在（我是2004），另外还有两个小问题。
1、字体在300时，文字和引线的距离太小。
2、上下有文字时，引线的长度是按照文字少的一行确定的！？
（不过，的确是个好程序！）

liminzheng

由于我作结构施工图需要大量的索引，包括钢筋值、构建编号等，索引形式要求操作简便
由于受楼主启发，把别人的一个标注坐标的程序给删减成了一个索引程序，（由于不懂lsp语言，不得已采用野蛮的破坏形式胡乱修改，勉强可以用）只是所标注的文字定位点若能提前一点就好了，可是试无无数次，总不能够成功，

下面附上源码请大侠帮我看看，怎样才能使所标注的字符提前一点：


;*********************************************************************************
;;;本文件与bgao.lsp相比，可在用户坐标系下标示选取点的绝对坐标。
;技巧：（按一下F8键试试，你可能会有一点惊喜哟）
;如果有什么BUG，请联系我：piaoyj@szmedi.com.cn
;启动命令为zb
(defun c:zb( / ucsfl os p0 pxx pyy px py pp ppp paa pbb entl a b le sc len alph alf alfa p1 p2 p3 p11 p22 p21 t1 t2)
(command "undo" "begin")
(setq CHO (getvar "CMDECHO"))                ;CMDECHO系统变量为1时，当使用command命令时反馈提示和输入，如为0则不反馈
(setvar "CMDECHO" 0)
;(command "style" "standard" "txt,hztxt" "" "" "" "" "" "")
(setq ucsfl (getvar "ucsfollow"))
(setvar "ucsfollow" 0)
(command "ucs" "world")                        ;转到世界坐标系
(setq os (getvar "osmode"))

(while (equal h nil)
  (setq h (getreal "\n 请输入字体高度:"))
;(command "LAYER" "Make" "gaobz" "")
)   
(setvar "osmode" 37)                        ;1端点，4圆心，32交点，可组合。
(initget 1 "h")
(setq p0 (getpoint "\n H/<选择插入点:>"))
(while (eq p0 "h")
  (setq hh (getreal "\n 请输入字体高度:"))
   (if (/= nil hh) (setq h hh))
(setq p0 (getpoint "\n 请选择插入点:"))
)
(setq pxx (car p0))
(setq pyy (nth 1 p0))
(setq px (rtos pxx 2 3))
(setq py (rtos pyy 2 3))
(setvar "osmode" 0)
(setq pp (getpoint "\n 请选择引出点:"))        ;引出点pp
(command "line" p0 pp nill)
(command "ucs" "p")                        ;返回用户坐标系
(command "line" "" pause "")
(setq entl (entget (entlast)))
(setq a (assoc 10 entl))
(setq b (assoc 11 entl))
(setq pa (cdr a))                ;引出点pa
(setq ppp (cdr b))                ;引出点pb
(setq paa (trans pa 0 1))
(setq pbb (trans ppp 0 1))                ;引出点的用户坐标
(setq le (distance paa pbb))                ;两点间距离       
(setq len (* 9.5 h))
(setq sc (/ len le))
(if (< le len)
  (progn
   (command "scale" (entlast) "" paa sc "")
   )
)
(setq alph (angle paa pbb))                ;引出两点的弧度alph
(setq alf (* 180.0 (/ alph pi)))        ;求出角度值alf
(setq p1 (polar paa alph h))               
(setq p2 (polar p1 alph (* 2 h)))       
;;;============================p2决定线长======================
(setq p3 (polar p2 alph 5000))
(setq ent (entlast))

(command "break" ent p2 p3)                ;将多余的线剪掉
(if (>= alf 105)
(if (>= alf 255)
(progn
  (setq pd p1)
  (setq alfa alf)
  (setq p11 (polar pd (+ 1.5708 alph) (* 0.4 h)))
  (setq p12 (polar pd (+ 4.7124 alph) (* 1.4 h)));定出文本起点
  )
(progn
  (setq p21 (polar p2 (+ pi alph) h))        ;
  (setq p11 (polar p21 (- alph 1.5708) (* 0.4 h)))
  (setq p12 (polar p21 (+ alph 1.5708) (* 1.4 h)));定出文本起点
  (setq alfa (+ alf 180))
  )
  )
                                ;当alf大于105时
(progn
  (setq pd p1)
  (setq alfa alf)
  (setq p11 (polar pd (+ 1.5708 alph) (* 0.4 h)))
  (setq p12 (polar pd (+ 4.7124 alph) (* 1.4 h)));定出文本起点
  )
)
(setq t1 (strcat "[8@200"))
;;;==================上面的改为需要的文字=====================

(command "text" p11 h alfa t1)
(command "text" p12 h alfa t2)
(setvar "osmode" os)                        ;返回原捕捉模式
(setvar "ucsfollow" ucsfl)
(command "undo" "end")
(setvar "CMDECHO" CHO)
(princ)
)
(princ "\n\n\t\t zbpyj\t\t\t标注坐标的程序\t\t\tzb")
;*********************************************************************************

jiega

程序修改比较仓卒，出现了一些疏漏，请见谅！现已更正过来,若有好的意见和建议敬请留言。

1. 注意: 最新更新见32楼!!!

复制代码

jiega

更新后的演示

liminzheng

好，太谢谢楼主这种敬业精神了
我代表所有将使用这个程序的人表示感谢

经测试，简直完美！
不错，真的不错。

建议版主加分

huiling6868

输入命令太长,能否修改短点.

jiega

最初由 huiling6868 发布
[B]输入命令太长,能否修改短点. [/B]

1. 命令名称太长也是无奈之举,因为害怕与cad
   
2. 或者使用者的自定义的快捷键冲突. 您可以在工具
   
3. 条上添加一个按钮来避免输入命令.

复制代码

huiling6868

楼主:我换成黑体字后,字与下划线的距离太近了,下划线怎么调整.

jiega

最初由 huiling6868 发布
[B]楼主:我换成黑体字后,字与下划线的距离太近了,下划线怎么调整. [/B]

1. 程序中默认了间隔为文字高度的0.1倍,用户是不能修改的.
   
2. 您的发现也反应的一个问题,包括前面有人提出的横线的长度问题,
   
3. 由于不同字体或者文字的宽度因子不同,可能会造成标注不够美观
   
4. ,请容我有空修改. 日后再贴出来!

复制代码