【已解答】关于Entmake单行文本问题

yhly555

2. 
   
3. ;Entmake单行文本
   
4. ;str,字符串
   
5. ;pt,插入点
   
6. ;th,文字高度
   
7. ;col,颜色
   
8. ;ali,对齐方式
   
9. ;coe,比例系数
   
10. 
    
11. (defun Make-TEXT1 (str pt th)
    
12.   (entmakeX
    
13.     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th))
    
14.   )
    
15. )
    
16. 
    
17. (defun Make-TEXT2 (str pt th col ali coe)
    
18.   (entmakeX
    
19.     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th) (cons 62 col) (cons 72 ali) (cons 41 coe))
    
20.   )
    
21. )
    
22. 
    
23. ;以下可以正常运行
    
24. (defun c:T1()
    
25.   (Make-TEXT1 "你好" (getpoint "\指定点：") 10)
    
26. )
    
27. 
    
28. ;以下不管在哪里指定插入点，都会在坐标原点写入文字
    
29. (defun c:T2()
    
30.   (Make-TEXT2 "你好" (getpoint "\指定点：") 10 256 4 0.8)
    
31. )

<br /> ;Entmake单行文本<br /> ;str,字符串<br /> ;pt,插入点<br /> ;th,文字高度<br /> ;col,颜色<br /> ;ali,对齐方式<br /> ;coe,比例系数<br /> <br /> (defun Make-TEXT1 (str pt th)<br />   (entmakeX<br />     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th))<br />   )<br /> )<br /> <br /> (defun Make-TEXT2 (str pt th col ali coe)<br />   (entmakeX<br />     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 th) (cons 62 col) (cons 72 ali) (cons 41 coe))<br />   )<br /> )<br /> <br /> ;以下可以正常运行<br /> (defun c:T1()<br />   (Make-TEXT1 "你好" (getpoint "\指定点：") 10)<br /> )<br /> <br /> ;以下不管在哪里指定插入点，都会在坐标原点写入文字<br /> (defun c:T2()<br />   (Make-TEXT2 "你好" (getpoint "\指定点：") 10 256 4 0.8)<br /> )

存在问题，用T2不管在哪里指定插入点，都会在坐标原点写入文字请大家帮忙说一下其中的原因
谢谢

可以了，改成以下就可以了

2. (defun Make-TEXT2 (str pt th col ali1  ali2 coe)
   
3.   (entmakeX
   
4.     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt)  (cons 11 pt) (cons 40 th) (cons 62 col) (cons 72 ali1) (cons 73 ali2) (cons 41 coe))
   
5.   )
   
6. )

(defun Make-TEXT2 (str pt th col ali1  ali2 coe)<br />   (entmakeX<br />     (list '(0 . "TEXT") (cons 1 str) (cons 10 pt)  (cons 11 pt) (cons 40 th) (cons 62 col) (cons 72 ali1) (cons 73 ali2) (cons 41 coe))<br />   )<br /> )

cdma2546

把你的捕捉关掉  试试  可手动 也可用代码关掉捕捉  操作完恢复

Sylvanas

10是基础点 ，11才是对齐参考点，还有对齐方式并不只有72

看看DXF的资料或者移动一下文字+改变对齐方式看看DXF有什么变化

自贡黄明儒

一般说来，entmake与捕捉无关。建议楼主了解一下组码72的作用

yhly555

cdma2546 发表于 2016-10-11 15:22
把你的捕捉关掉  试试  可手动 也可用代码关掉捕捉  操作完恢复

谢谢！
这个我试过了，与对象捕捉无关。

yhly555

Sylvanas 发表于 2016-10-11 16:11
10是基础点 ，11才是对齐参考点，还有对齐方式并不只有72

看看DXF的资料或者移动一下文字+改变对齐方式 ...

谢谢！
将10改为11，同加了73组码也是一样，
还是在坐标原点

yhly555

自贡黄明儒 发表于 2016-10-11 16:16
一般说来，entmake与捕捉无关。建议楼主了解一下组码72的作用

谢谢！
不太懂这些，在找资料来了解一下。

Sylvanas

yhly555 发表于 2016-10-11 19:59
谢谢！
将10改为11，同加了73组码也是一样，
还是在坐标原点

不是将10改为11 ，10是基础点必须要有的，同时你想有对齐方式，11也得有，好像某几种对齐方式不需要，不记得了

你就随便拿个单行文字改变一下 ，对比dxf信息就能看出变化了，应该不难

yhly555

Sylvanas 发表于 2016-10-12 08:53
不是将10改为11 ，10是基础点必须要有的，同时你想有对齐方式，11也得有，好像某几种对齐方式不需要，不 ...

嗯，已经解决了，谢谢!