entmake 标注文字内容更改及位置调整

peraperson

如图 想将标示尺寸的文字改成特定的文字且文字外移 请问用entmake怎么写？
谢谢

Gu_xl

1. (defun f (dim postion overridetext)
   
2.   (setq el (entget dim)
   
3.         dxf70 (cdr (assoc 70 el))
   
4.         dxf11 (cdr (assoc 11 el))
   
5.         dxf1 (cdr (assoc 1 el))
   
6.         el (subst (cons 70 (logior 70 128)) (assoc 70 el) el)
   
7.         el (subst (cons 11 postion) (assoc 11 el) el)
   
8.         el (subst (cons 1 overridetext) (assoc 1 el) el)
   
9.         )
   
10.   (entmod el)
    
11.   )

(defun f (dim postion overridetext)<br />   (setq el (entget dim)<br />         dxf70 (cdr (assoc 70 el))<br />         dxf11 (cdr (assoc 11 el))<br />         dxf1 (cdr (assoc 1 el))<br />         el (subst (cons 70 (logior 70 128)) (assoc 70 el) el)<br />         el (subst (cons 11 postion) (assoc 11 el) el)<br />         el (subst (cons 1 overridetext) (assoc 1 el) el)<br />         )<br />   (entmod el)<br />   )

peraperson

Gu_xl 发表于 2014-3-12 11:32

非常谢谢 Gu版
我之前的表意不明，其实我是想用entmake生成而不是改已有的标注
我看了一下你的代码 主要的问题在组码 11 和 70， 我试着写了下

(defun c:mj ()
(Setq pp1 (getpoint))
(setq pp2 (getpoint))
(setq pp3 (getpoint))
(entmake
(list '(0 . "DIMENSION")
      '(100 . "AcDbEntity")
      '(100 . "AcDbDimension")
      '(100 . "AcDbAlignedDimension")
     '(70 . 128)  
     '(1 . "明经")
      (cons 13 pp1)
      (cons 14 pp2)
      (cons 11 pp3)   
))
)
还是不行，请问一下问题出在哪里呢？
谢谢

自贡黄明儒

用http://bbs.mjtd.com/thread-109437-1-1.html,比较组码，主要是70不同

1. (defun c:W2 (/ PP1 PP2 PP3)
   
2.   (Setq pp1 (getpoint))
   
3.   (setq pp2 (getpoint))
   
4.   (setq pp3 (getpoint))
   
5.   (entmake (list '(0 . "DIMENSION")
   
6.                  '(100 . "AcDbEntity")
   
7.                  '(100 . "AcDbDimension")
   
8.                  (cons 10 pp3)
   
9.                  '(70 . 160)
   
10.                  '(1 . "明经")
    
11.                  '(100 . "AcDbAlignedDimension")
    
12.                  (cons 13 pp1)
    
13.                  (cons 14 pp2)
    
14.                  '(100 . "AcDbRotatedDimension")
    
15.            )
    
16.   )
    
17. )
    
18. (defun c:W3 (/ PP1 PP2 PP3)
    
19.   (Setq pp1 (getpoint))
    
20.   (setq pp2 (getpoint))
    
21.   (setq pp3 (getpoint))
    
22.   (entmake (list '(0 . "DIMENSION")
    
23.                  '(100 . "AcDbEntity")
    
24.                  '(100 . "AcDbDimension")
    
25.                  (cons 10 pp3)
    
26.                  '(70 . 32)
    
27.                  '(1 . "明经")
    
28.                  '(100 . "AcDbAlignedDimension")
    
29.                  (cons 13 pp1)
    
30.                  (cons 14 pp2)
    
31.                  '(100 . "AcDbRotatedDimension")
    
32.            )
    
33.   )
    
34. )

(defun c:W2 (/ PP1 PP2 PP3)<br />   (Setq pp1 (getpoint))<br />   (setq pp2 (getpoint))<br />   (setq pp3 (getpoint))<br />   (entmake (list '(0 . "DIMENSION")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbDimension")<br />                  (cons 10 pp3)<br />                  '(70 . 160)<br />                  '(1 . "明经")<br />                  '(100 . "AcDbAlignedDimension")<br />                  (cons 13 pp1)<br />                  (cons 14 pp2)<br />                  '(100 . "AcDbRotatedDimension")<br />            )<br />   )<br /> )<br /> (defun c:W3 (/ PP1 PP2 PP3)<br />   (Setq pp1 (getpoint))<br />   (setq pp2 (getpoint))<br />   (setq pp3 (getpoint))<br />   (entmake (list '(0 . "DIMENSION")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbDimension")<br />                  (cons 10 pp3)<br />                  '(70 . 32)<br />                  '(1 . "明经")<br />                  '(100 . "AcDbAlignedDimension")<br />                  (cons 13 pp1)<br />                  (cons 14 pp2)<br />                  '(100 . "AcDbRotatedDimension")<br />            )<br />   )<br /> )

peraperson

自贡黄明儒 发表于 2014-3-18 14:39
用http://bbs.mjtd.com/thread-109437-1-1.html,比较组码，主要是70不同

谢谢黄兄 话说黄兄解答了我不少疑问哈 太感谢了

lidaxiu

entmake+组码，才学到，记录下，
黄大师提供的是横向的假标，竖向加俩组码搞定