设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2734|回复: 45

[源码] [LISP函数]:文件与斜线对齐LSP

[复制链接]
发表于 2007-11-12 14:05:28 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
好东西啊!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-11-13 00:52:36 | 显示全部楼层
很好用。
原来写了一个,点取line后求出其余X轴的夹角,然后点取文字求出文字的旋转角,求出角度差,以文字对起点为基点直接旋转文字。这样文字只是原位旋转了,不会偏离原来的位置
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-11-16 19:44:02 | 显示全部楼层
想不到楼上的想法和我一样,我也写了个类似的lisp,还可以同时修改块,不过都存在偏离原位的问题。

ps:刚下了楼主的程序,发现大家的想法都差不多,不过偏移原位的问题还是没有解决,希望哪位高手补充完善下,但愿不只是在后面再加个move的命令
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1419个

财富等级: 财源广进

发表于 2008-8-26 11:40:01 | 显示全部楼层
能获取字高,然后再离斜线0.2倍字高的距离就更好了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2008-11-3 08:31:13 | 显示全部楼层
能获取字高,然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

已领礼包: 691个

财富等级: 财运亨通

发表于 2008-12-5 21:32:20 | 显示全部楼层
c:ae好用,c:ad不知道是干什么用的啊,不明白。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

发表于 2008-12-19 12:26:26 | 显示全部楼层
最初由 wawbt 发布
[B]能获取字高,然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断. [/B]

下面的程序文字写在直线上方0.2倍字高,且文字中心与直线中心对齐。

  1.   [FONT=courier new]
  2. (defun to(n)
  3.   (cdr (assoc n (entget sn)))
  4. )
  5. (princ "\n欢迎使用文字对齐直线程序! GYSJY  2008.12.19")
  6. (defun c:nn( / a0 ang d dh dq en h n p0 p1 p2 pi pmid sn txt zx)
  7. ;将文字对齐到直线上
  8.   (command "undo" "g")
  9.   (setq zx t txt t)
  10.   (while zx  
  11.     (if (setq sn (car (entsel "\n选择直线:")))
  12.       (if (= (to 0) "LINE")
  13.         (setq p1 (to 10) p2 (to 11) ang (angle p1 p2)         
  14.               d (/ (distance p1 p2) 2) pmid (polar p1 ang d)
  15.               ang (if (and (> ang 1.571)(< ang 4.713))(- ang pi) ang)
  16.               a0 (+ ang 1.57) zx nil
  17.         )
  18.         (princ "\n你点取的不是直线,请重新选择直线!")
  19.       )
  20.       (princ "\n你没有点取直线,请重新选择直线!")
  21.     )
  22.   )
  23.   (while txt     
  24.     (if (setq sn (car (entsel "\n选择文字:")))
  25.       (if (= (to 0) "TEXT")
  26.         (setq en (entget sn) dq (to 72) txt nil
  27.               n (if (= dq 0) 10 11) p1 (to 10) p2 (to 11)
  28.               h (to 40) dh (* h 0.2) p0 (polar pmid a0 dh)
  29.               en (subst (cons 72 1) (assoc 72 en) en)
  30.               en (subst (cons 11 p0) (assoc 11 en) en)
  31.               en (subst (cons 50 ang) (assoc 50 en) en)
  32.         )
  33.         (princ "\n你点取的不是文字,请重新选择文字!")
  34.       )
  35.       (princ "\n你没有点取文字,请重新选择文字!")
  36.     )      
  37.   )
  38.   (entmod en)
  39.   (command "undo" "e")
  40.   (princ)
  41. )
  42.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2008-12-29 22:18:50 | 显示全部楼层
这个程序好像在竖直线上,和pline线不支持,还有字与线的对齐位置跟原来的字的标注对正有关系。希望改善,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-8-9 14:06 , Processed in 0.209137 second(s), 60 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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