[LISP函数]：制造Text

eachy

2. 
   
3. ;;制造Text
   
4. ;;字串 插入点 高度 宽度因子
   
5. (defun xd-mktxt        (string insertionpt hight width)
   
6.   (if (setq ent        (entmakex (list        '(0 . "TEXT")
   
7.                                 '(100 . "AcDbEntity")
   
8.                                 '(100 . "AcDbText")
   
9.                                 (cons 1 string)
   
10.                                 (cons 10 insertionpt)
    
11.                                 (cons 40 hight)
    
12.                                 (cons 41 width)
    
13.                           )
    
14.                 )
    
15.       )
    
16.     ent
    
17.   )
    
18. )
    
19. (defun xd-addtext (obj Textstring Insertionpoint Height)
    
20.   (vla-addtext obj textstring (vlax-3d-point Insertionpoint) Height)
    
21. )
    
22. ;|
    
23. (defun c:tt (/ ms txtobj p)
    
24.   (setq        ms (vla-get-modelspace
    
25.              (vla-get-activedocument (vlax-get-acad-object))
    
26.            )
    
27.   )
    
28.   (setq
    
29.     txtobj (xd-addtext ms "11111" (setq p (getpoint "\nPoint: ")) (getdist))
    
30.   )
    
31.   (setq p (vlax-3d-point p))
    
32.   (mapcar
    
33.     '(lambda (x) (vlax-put-property txtobj (car x) (eval (cdr x))))
    
34.     '((Alignment . acalignmentMiddle) (textalignmentpoint . p) (scalefactor . 0.75))
    
35.   )
    
36. )
    
37. |;

<br /> ;;制造Text<br /> ;;字串 插入点 高度 宽度因子<br /> (defun xd-mktxt        (string insertionpt hight width)<br />   (if (setq ent        (entmakex (list        '(0 . "TEXT")<br />                                 '(100 . "AcDbEntity")<br />                                 '(100 . "AcDbText")<br />                                 (cons 1 string)<br />                                 (cons 10 insertionpt)<br />                                 (cons 40 hight)<br />                                 (cons 41 width)<br />                           )<br />                 )<br />       )<br />     ent<br />   )<br /> )<br /> (defun xd-addtext (obj Textstring Insertionpoint Height)<br />   (vla-addtext obj textstring (vlax-3d-point Insertionpoint) Height)<br /> )<br /> ;|<br /> (defun c:tt (/ ms txtobj p)<br />   (setq        ms (vla-get-modelspace<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />   )<br />   (setq<br />     txtobj (xd-addtext ms "11111" (setq p (getpoint "\nPoint: ")) (getdist))<br />   )<br />   (setq p (vlax-3d-point p))<br />   (mapcar<br />     '(lambda (x) (vlax-put-property txtobj (car x) (eval (cdr x))))<br />     '((Alignment . acalignmentMiddle) (textalignmentpoint . p) (scalefactor . 0.75))<br />   )<br /> )<br /> |;

brainstorm

如何制作中心对齐的文字

TLHMQH

最初由 brainstorm 发布
[B]如何制作中心对齐的文字 [/B]

(command "text" "mc" p1 h1 0 sxh1)

brainstorm

楼上的兄弟，我是想用entmake制作中心对齐的文字
以下是我的几个entmake实体的方法
(defun zgx-entmake (lst1 lst2)
  (entmake (mapcar 'cons lst1 lst2))
)
(defun zgx-mkcircle (center radius lay)
  (entmake (mapcar 'cons
                   '(0 8 10 40)
                   (list "circle" lay center radius)
           )
  )
)
(defun zgx-mkline (pt1 pt2 lay)
  (entmake (mapcar 'cons
                   '(0 8 10 11)
                   (list "line" lay pt1 pt2)
           )
  )
)

Dream.Fei

DXF72 , 73 影响文字的插放点.参考 TEXTr的DXF组码就能制作出来.

hc1975

最初由 brainstorm 发布
[B]楼上的兄弟，我是想用entmake制作中心对齐的文字
以下是我的几个entmake实体的方法
(defun zgx-entmake (lst1 lst2)
  (entmake (mapcar 'cons lst1 lst2))
)
(defun zgx-mkcircle (center radius lay)
  (ent... [/B]

是啊,用entmake制做文字怎么弄啊

kikigz88

是啊,用entmake制做文字怎么弄啊

cjrun

(entmake
    (list
      '(0 . "TEXT")
      (cons 10 txt_point)
      (cons 40 300)
      '(41 . 0.8)
      (cons 1 "txt")
      '(7 . "hztxt")
        '(71 . 0)
        '(72 . 4)
        '(8 . "0")
    )
  )

10 是插入点

yjch

受益匪浅，组码学习

q3_2006

8楼的方法不行呀！