[LISP函数]：文件与斜线对齐LSP

gxqshi456 · 发表于 2007-11-12 14:05:28

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

您需要登录才可以下载或查看，没有账号？立即注册

×

好东西啊!!

lyq2004 · 发表于 2007-11-13 00:52:36

很好用。
原来写了一个，点取line后求出其余X轴的夹角，然后点取文字求出文字的旋转角，求出角度差，以文字对起点为基点直接旋转文字。这样文字只是原位旋转了，不会偏离原来的位置

leeyuan · 发表于 2007-11-16 19:44:02

想不到楼上的想法和我一样，我也写了个类似的lisp，还可以同时修改块，不过都存在偏离原位的问题。

ps：刚下了楼主的程序，发现大家的想法都差不多，不过偏移原位的问题还是没有解决，希望哪位高手补充完善下，但愿不只是在后面再加个move的命令

flowerson · 发表于 2008-8-26 11:40:01

能获取字高，然后再离斜线0.2倍字高的距离就更好了！

wawbt · 发表于 2008-11-3 08:31:13

能获取字高，然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断.

jx2008 · 发表于 2008-11-5 10:22:56

呵呵，文字沿曲线分布，或者叫弧形文字

lzj511 · 发表于 2008-12-5 21:32:20

c:ae好用，c:ad不知道是干什么用的啊，不明白。

zzczlh0511 · 发表于 2008-12-18 23:12:40

正找这样的来写公路的桩号，下来试试，谢谢了

gysjy · 发表于 2008-12-19 12:26:26

最初由 wawbt 发布
[B]能获取字高，然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断. [/B]

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

[FONT=courier new]
(defun to(n)
(cdr (assoc n (entget sn)))
)
(princ "\n欢迎使用文字对齐直线程序! GYSJY 2008.12.19")
(defun c:nn( / a0 ang d dh dq en h n p0 p1 p2 pi pmid sn txt zx)
;将文字对齐到直线上
(command "undo" "g")
(setq zx t txt t)
(while zx
(if (setq sn (car (entsel "\n选择直线:")))
(if (= (to 0) "LINE")
(setq p1 (to 10) p2 (to 11) ang (angle p1 p2)
d (/ (distance p1 p2) 2) pmid (polar p1 ang d)
ang (if (and (> ang 1.571)(< ang 4.713))(- ang pi) ang)
a0 (+ ang 1.57) zx nil
)
(princ "\n你点取的不是直线，请重新选择直线!")
)
(princ "\n你没有点取直线，请重新选择直线!")
)
)
(while txt
(if (setq sn (car (entsel "\n选择文字:")))
(if (= (to 0) "TEXT")
(setq en (entget sn) dq (to 72) txt nil
n (if (= dq 0) 10 11) p1 (to 10) p2 (to 11)
h (to 40) dh (* h 0.2) p0 (polar pmid a0 dh)
en (subst (cons 72 1) (assoc 72 en) en)
en (subst (cons 11 p0) (assoc 11 en) en)
en (subst (cons 50 ang) (assoc 50 en) en)
)
(princ "\n你点取的不是文字，请重新选择文字!")
)
(princ "\n你没有点取文字，请重新选择文字!")
)
)
(entmod en)
(command "undo" "e")
(princ)
)
[/FONT]

[FONT=courier new] 
(defun to(n) 
  (cdr (assoc n (entget sn))) 
) 
(princ "\n欢迎使用文字对齐直线程序! GYSJY  2008.12.19") 
(defun c:nn( / a0 ang d dh dq en h n p0 p1 p2 pi pmid sn txt zx) 
;将文字对齐到直线上 
  (command "undo" "g") 
  (setq zx t txt t) 
  (while zx   
    (if (setq sn (car (entsel "\n选择直线:"))) 
      (if (= (to 0) "LINE") 
        (setq p1 (to 10) p2 (to 11) ang (angle p1 p2)          
              d (/ (distance p1 p2) 2) pmid (polar p1 ang d) 
              ang (if (and (> ang 1.571)(< ang 4.713))(- ang pi) ang) 
              a0 (+ ang 1.57) zx nil 
        ) 
        (princ "\n你点取的不是直线，请重新选择直线!") 
      ) 
      (princ "\n你没有点取直线，请重新选择直线!") 
    ) 
  ) 
  (while txt      
    (if (setq sn (car (entsel "\n选择文字:"))) 
      (if (= (to 0) "TEXT") 
        (setq en (entget sn) dq (to 72) txt nil 
              n (if (= dq 0) 10 11) p1 (to 10) p2 (to 11) 
              h (to 40) dh (* h 0.2) p0 (polar pmid a0 dh) 
              en (subst (cons 72 1) (assoc 72 en) en) 
              en (subst (cons 11 p0) (assoc 11 en) en) 
              en (subst (cons 50 ang) (assoc 50 en) en) 
        ) 
        (princ "\n你点取的不是文字，请重新选择文字!") 
      ) 
      (princ "\n你没有点取文字，请重新选择文字!") 
    )       
  ) 
  (entmod en) 
  (command "undo" "e") 
  (princ) 
) 
  [/FONT]

gysjy · 发表于 2008-12-19 12:30:29

如图。

kmdz · 发表于 2008-12-28 13:07:23

不错，编桩号和带直线的文字很好用。

c_wm · 发表于 2008-12-29 22:18:50

这个程序好像在竖直线上，和pline线不支持，还有字与线的对齐位置跟原来的字的标注对正有关系。希望改善，

gzzhangwei · 发表于 2009-1-25 16:33:33

希望能与pline线支持

xyp1964 · 发表于 2009-1-29 10:31:43

zxdz(字线对正):

xyp1964 · 发表于 2009-1-29 10:32:12

zxdz(字线对正)效果：

账号		自动登录	找回密码
密码			立即注册

[每日一码] [LISP函数]：文件与斜线对齐LSP

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

相关帖子