文字旋转？

fjutcivil

下面的代码 我选择线上的文字，它可以在文字前面生成数字，可以是如果线带了角度怎么弄呢？(好像上传不了DWG，我把后缀改成了PDF，下载后改回成DWG就可以了)
(defun c:x21 ()
  (setvar "DIMZIN" 8)
  (setq s1 (car (entsel "\n选取文字: ")))
     (setq pt (cdr (assoc 10 (entget s1))))
     (setq x1 (car pt))
     (setq y1 (cadr pt))
     (setq z1 (caddr pt))
     (setq x (/ (+ x1 1) 2))
     (setq y (/ (+ y1 y1) 2))
     (setq z (/ (+ z1 z1) 2))
     (setq pt (list x y z))
     (setq c "500")   
(entmake
   (list
    '(0 . "TEXT")
    (cons 10 pt)
    '(40 . 0.2)
    (cons 1 c)
    '(50 . 0)
    '(41 . 0.7)
    '(72 . 0)
    '(73 . 0)
   )
  )
  (princ))

aeo

'(50 . 0)
改成
(assoc 50(entget s1))

fjutcivil

aeo 发表于 2014-4-30 13:10
'(50 . 0)
改成
(assoc 50(entget s1))

不行的版主  这个我之前就想过了 ！按你的那个想法会变成下面这样

Underway

文字看着就头疼...
有着太多类的基点,甚或带着空白

建议楼主附上Dwg文件的示例,能卡上未叙述的Data

fjutcivil

Underway 发表于 2014-4-30 16:29
文字看着就头疼...
有着太多类的基点,甚或带着空白

已上传了附件wpj.pdf.下载后改成.dwg就可以了，论坛好像上传不了dwg,   想要的效果是点击文字，在文字前生成固定文字，后续我自己再加上计算过程，现在的问题是点击文字后，碰到斜的生成的文字不会在文字前面，会偏到其他地方，求优化

Underway

2. 
   
3. (defun substdp (a b c )
   
4.    (subst (cons a b) (assoc a c) c)
   
5. )
   
6. 
   
7. (defun c:x21 ()
   
8.   (setq s1 (car (entsel "\n选取文字: "))
   
9.         dat (entget s1)
   
10.         p10 (dxf 10 dat)
    
11.         p11 (dxf 11 dat)
    
12.          dd (mapcar '- p11 p10)
    
13.         dat (substdp 1 "500" dat)
    
14.         pta (mapcar '- p10 (mapcar '* dd '(1.25 1.25)))
    
15.         ptb (mapcar '+ pta dd)
    
16.         dat (substdp 10 pta dat)
    
17.         dat (substdp 11 ptb dat)
    
18.         dat (substdp 1 "500" dat)  ; (setq c "500")
    
19.         dat (member (assoc 100 dat) dat)
    
20.         dat (cons '(0 . "TEXT")  dat)
    
21.   )
    
22.   (entmake dat)
    
23.   (princ)
    
24. )
    

<br /> (defun substdp (a b c )<br />    (subst (cons a b) (assoc a c) c)<br /> )<br /> <br /> (defun c:x21 ()<br />   (setq s1 (car (entsel "\n选取文字: "))<br />         dat (entget s1)<br />         p10 (dxf 10 dat)<br />         p11 (dxf 11 dat)<br />          dd (mapcar '- p11 p10)<br />         dat (substdp 1 "500" dat)<br />         pta (mapcar '- p10 (mapcar '* dd '(1.25 1.25)))<br />         ptb (mapcar '+ pta dd)<br />         dat (substdp 10 pta dat)<br />         dat (substdp 11 ptb dat)<br />         dat (substdp 1 "500" dat)  ; (setq c "500")<br />         dat (member (assoc 100 dat) dat)<br />         dat (cons '(0 . "TEXT")  dat)<br />   )<br />   (entmake dat)<br />   (princ)<br /> )<br />

约略框架,请自行调整...

fjutcivil

Underway 发表于 2014-5-1 09:43
约略框架,请自行调整...

谢谢！！约略框架是什么意思？

Underway

文字的相关属性不少,此处只能是其一耳
又完整的程序还得再补上许多代码令其坚韧

fjutcivil

Underway 发表于 2014-5-2 13:29
文字的相关属性不少,此处只能是其一耳
又完整的程序还得再补上许多代码令其坚韧

你好！请问只有一个对齐点（ 第一对齐点，跟第二对齐点要是同一个坐标） ，会出错，怎么解决啊？ 还有为什么，生成的图层想设置在"LT"图层，颜色“2”，怎么加？

fjutcivil

Underway 发表于 2014-5-2 13:29
文字的相关属性不少,此处只能是其一耳
又完整的程序还得再补上许多代码令其坚韧

有的文字是一个对齐点，有的是两个，有通用的办法吗？

Underway

文字的相关属性不少...
遇上一个,钻研一个,收获一个
您的状况需再对 (entget...)的返回值下功夫
能接轨那么答案就在其中...