entmake关于组码顺序问题

zgs378530220

• (entmake (list
•                  (cons 0 "TEXT")
•                  (cons 10 mid-point)
•                  (cons 40 (* 5 mzsl))
•                  (cons 1 (strcat "夹角:" (rtos mzjj) "°"))
•                  (cons 50 (- (angle mid-point point1) (* pi 0.5)))
•                  (cons 72 1)
•                  (cons 73 3)
•                )        
  

      )以上用entmake创建单行文字时，文字基准点总是原点，检测(princ mid-point)，显示(394.408 587.341 0.0)，点坐标正常，但是一直都是原点。将组码10移到尾部，问题相同；将组码10移到0前面，完全就不创建。各位大神对组码了解的可以支支招。注：之前用command实现单行文字，但是后面发现部分1内容用strcat无法串起来，不知道什么原因，转而用entmake

crtrccrt

注册明经十二年多,积分不到千,说明登录极少,
基本问题解决不了,说明没有用点时间看看lsp基础知识,
不知道text的各种对齐方式,说明ACAD基本功弱,


看一看text的71+72+73组码,结合对齐方式,马上就明白少设置了一个重要参数
对于text,无须设置100组码

反向+镜像+位置+对齐方式,4种特性可任意组合,可以直接生成,无须二次修改,与ACAD版本没有关系,

dcl1214

CAD的版本号可能有关系

你有种再说一遍

CAD的文字一直都是这样的,
你必须创建在原点,之后设定对齐方式和对齐点,
提交之后再进行矩阵变换你需要的位置.
这样你应该理解了,
它因为存在对齐点问题,所以它会出现这个问题.
别问为什么不封装好,我也不知道.

cq4920

2. ;;;单点创建单行文字
   
3. ;;; (mc:txt 点 高 对正 内容)
   
4. (defun Mc:tXt (pt th wz str /)
   
5.         (asdf2)
   
6.         (if (not wz) (setq wz 0))
   
7.         (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th) (cons 7 "新宋体") (cons 72 wz) (cons 11 pt)))
   
8. )
   
9. 
   
10. 
    
11. ;;;单点创建多行文字
    
12. (defun Mc:MtXt (pt th str /)
    
13.         (asdf2)
    
14.          (entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText") '(7 . "Standard") (cons 1 str) (cons 10 pt) (cons 40 th)(cons 7 "新宋体")))
    
15. )

;;;单点创建单行文字<br /> ;;; (mc:txt 点 高 对正 内容)<br /> (defun Mc:tXt (pt th wz str /)<br />         (asdf2)<br />         (if (not wz) (setq wz 0))<br />         (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th) (cons 7 "新宋体") (cons 72 wz) (cons 11 pt)))<br /> )<br /> <br /> <br /> ;;;单点创建多行文字<br /> (defun Mc:MtXt (pt th str /)<br />         (asdf2)<br />          (entmake (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(100 . "AcDbMText") '(7 . "Standard") (cons 1 str) (cons 10 pt) (cons 40 th)(cons 7 "新宋体")))<br /> )

xyp1964

1. (setq pt   '(394.408 587.341 0.0)
   
2.       mzjj 10.
   
3. )
   
4. (entmake (list
   
5.            (cons 0 "TEXT")
   
6.            (cons 10 pt)
   
7.            (cons 40 (* 5 60))
   
8.            (cons 1 (strcat "夹角:" (rtos mzjj) "°"))
   
9.            (cons 50 0)
   
10.          )
    
11. )

(setq pt   '(394.408 587.341 0.0)<br />       mzjj 10.<br /> )<br /> (entmake (list<br />            (cons 0 "TEXT")<br />            (cons 10 pt)<br />            (cons 40 (* 5 60))<br />            (cons 1 (strcat "夹角:" (rtos mzjj) "°"))<br />            (cons 50 0)<br />          )<br /> )

zgs378530220

crtrccrt 发表于 2025-6-25 06:26
注册明经十二年多,积分不到千,说明登录极少,
基本问题解决不了,说明没有用点时间看看lsp基础知识,
不知道 ...

长老点拨，立马醒悟，差个11