文字以左中或右中吸附到直线，多线，弧的端点

meja

文字以左中或右中吸附到直线，多线，弧的端点，排版利器
因为对box的使用不熟悉，所以只能做到居中吸附，而且涉及到文字宽度，以后会考虑MTEXT的

2. (defun C:edt  ()
   
3. ;;  (princ "\nSelect ")
   
4.   (while (setq objEnt (entsel "\n Select a point on a line/pline/arc... "))
   
5.       (progn
   
6.          (setq objType (cdr (assoc 0 (entget (car objEnt)))))
   
7.          (princ objType)
   
8.          (setq pt1 (osnap (cadr objEnt) "_nea"))
   
9.          (setq pt2 (osnap (cadr objEnt) "_endp"))
   
10.          (setq ent2 (entget (setq entList (car objEnt))))
    
11.          (setq layName (DXF 8 ent2))
    
12.          (setvar "clayer" layName)         
    
13.       )
    
14.    )
    
15. ;;  (princ "\nselect the text")
    
16.   (princ)
    
17.   (setq NN  (entsel "\nSelect the text to move to the ENDPOINT: ")
    
18.         NN1 (entget (car NN))
    
19.         NN2 (subst (cons 72 4) (assoc 72 NN1) NN1);;1中心2右3对齐4中央5调整6左7
    
20.         ST1 (subst (cons 11 PT2) (assoc 11 NN2) NN2))
    
21.   (entmod NN2)
    
22.   (entmod ST1)
    
23.   (setvar "cmdecho" 0)
    
24.   )
    

(defun C:edt  ()<br /> ;;  (princ "\nSelect ")<br />   (while (setq objEnt (entsel "\n Select a point on a line/pline/arc... "))<br />       (progn<br />          (setq objType (cdr (assoc 0 (entget (car objEnt)))))<br />          (princ objType)<br />          (setq pt1 (osnap (cadr objEnt) "_nea"))<br />          (setq pt2 (osnap (cadr objEnt) "_endp"))<br />          (setq ent2 (entget (setq entList (car objEnt))))<br />          (setq layName (DXF 8 ent2))<br />          (setvar "clayer" layName)         <br />       )<br />    )<br /> ;;  (princ "\nselect the text")<br />   (princ)<br />   (setq NN  (entsel "\nSelect the text to move to the ENDPOINT: ")<br />         NN1 (entget (car NN))<br />         NN2 (subst (cons 72 4) (assoc 72 NN1) NN1);;1中心2右3对齐4中央5调整6左7<br />         ST1 (subst (cons 11 PT2) (assoc 11 NN2) NN2))<br />   (entmod NN2)<br />   (entmod ST1)<br />   (setvar "cmdecho" 0)<br />   )<br />

meja

效果如图，求指教

ysq101

吸付？？？好东东。学习了

gaics

是这样的吗？

meja

楼上，显然不是这种

gaics

meja 发表于 2014-7-12 14:08
楼上，显然不是这种

他想要的功能是这样的吧

长风（尚品）

gaics 发表于 2014-7-12 13:20
是这样的吗？

能发源码上来吗？

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

gaics

长风（尚品） 发表于 2014-7-12 20:07
能发源码上来吗？

论坛里有的

gaics

长风（尚品） 发表于 2014-7-12 20:07
能发源码上来吗？

http://bbs.mjtd.com/thread-99093-1-1.html
http://bbs.mjtd.com/thread-99014-1-1.html