找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: jiega

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

[复制链接]
 楼主| 发表于 2005-12-22 18:05:43 | 显示全部楼层
更新界面
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-22 19:18:27 | 显示全部楼层
能做成支持R14的吗?谢谢先!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-12-22 19:26:53 | 显示全部楼层
最初由 whcdy 发布
[B]能做成支持R14的吗?谢谢先! [/B]


该使用高一点版本的CAD了---现在的很多程序都需要cad2000以上的支持,很多函数R14不支持.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 01:24:01 | 显示全部楼层
我用的cad是2005,字体高度每次都默认是3.0,能不能把下次标注时利用上次的字高?这样在此标注时省了改字高这一步。

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

(除了上面两点,其实很不错了,我认为这个程序主要优点是操作简便,若能把上面两点该过来,应改是完美了)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 09:59:49 | 显示全部楼层
更新了!下载试试看!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 10:48:01 | 显示全部楼层
最初由 liminzheng 发布
[B]我用的cad是2005,字体高度每次都默认是3.0,能不能把下次标注时利用上次的字高?这样在此标注时省了改字高这一步。

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

( [/B]



15楼的那个程序,还存在上面的问题,可能有点不兼容把,我的用法是在天正6.05+cad2005。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 10:59:29 | 显示全部楼层
是的!liminzheng 说的情况存在(我是2004),另外还有两个小问题。
1、字体在300时,文字和引线的距离太小。
2、上下有文字时,引线的长度是按照文字少的一行确定的!?
(不过,的确是个好程序!)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 14:55:18 | 显示全部楼层
由于我作结构施工图需要大量的索引,包括钢筋值、构建编号等,索引形式要求操作简便
由于受楼主启发,把别人的一个标注坐标的程序给删减成了一个索引程序,(由于不懂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")
;*********************************************************************************
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-12-23 18:51:52 | 显示全部楼层
程序修改比较仓卒,出现了一些疏漏,请见谅!现已更正过来,若有好的意见和建议敬请留言。

  1. 注意: 最新更新见32楼!!!
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-12-23 18:53:22 | 显示全部楼层
更新后的演示
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-23 20:21:36 | 显示全部楼层
好,太谢谢楼主这种敬业精神了
我代表所有将使用这个程序的人表示感谢

经测试,简直完美!
不错,真的不错。

建议版主加分
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-26 17:33:20 | 显示全部楼层
输入命令太长,能否修改短点.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-12-26 18:05:09 | 显示全部楼层
最初由 huiling6868 发布
[B]输入命令太长,能否修改短点. [/B]
  1. 命令名称太长也是无奈之举,因为害怕与cad
  2. 或者使用者的自定义的快捷键冲突. 您可以在工具
  3. 条上添加一个按钮来避免输入命令.
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-12-26 20:26:08 | 显示全部楼层
楼主:我换成黑体字后,字与下划线的距离太近了,下划线怎么调整.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-12-26 20:53:29 | 显示全部楼层
最初由 huiling6868 发布
[B]楼主:我换成黑体字后,字与下划线的距离太近了,下划线怎么调整. [/B]
  1. 程序中默认了间隔为文字高度的0.1倍,用户是不能修改的.
  2. 您的发现也反应的一个问题,包括前面有人提出的横线的长度问题,
  3. 由于不同字体或者文字的宽度因子不同,可能会造成标注不够美观
  4. ,请容我有空修改. 日后再贴出来!
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 02:09 , Processed in 0.412010 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表