entmake 标注文字内容更改及位置调整
如图 想将标示尺寸的文字改成特定的文字且文字外移 请问用entmake怎么写？谢谢
(defun f (dim postion overridetext)
(setq el (entget dim)
dxf70 (cdr (assoc 70 el))
dxf11 (cdr (assoc 11 el))
dxf1 (cdr (assoc 1 el))
el (subst (cons 70 (logior 70 128)) (assoc 70 el) el)
el (subst (cons 11 postion) (assoc 11 el) el)
el (subst (cons 1 overridetext) (assoc 1 el) el)
)
(entmod el)
) Gu_xl 发表于 2014-3-12 11:32 static/image/common/back.gif
非常谢谢 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不同
(defun c:W2 (/ PP1 PP2 PP3)
(Setq pp1 (getpoint))
(setq pp2 (getpoint))
(setq pp3 (getpoint))
(entmake (list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 pp3)
'(70 . 160)
'(1 . "明经")
'(100 . "AcDbAlignedDimension")
(cons 13 pp1)
(cons 14 pp2)
'(100 . "AcDbRotatedDimension")
)
)
)
(defun c:W3 (/ PP1 PP2 PP3)
(Setq pp1 (getpoint))
(setq pp2 (getpoint))
(setq pp3 (getpoint))
(entmake (list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 pp3)
'(70 . 32)
'(1 . "明经")
'(100 . "AcDbAlignedDimension")
(cons 13 pp1)
(cons 14 pp2)
'(100 . "AcDbRotatedDimension")
)
)
) 自贡黄明儒 发表于 2014-3-18 14:39 static/image/common/back.gif
用http://bbs.mjtd.com/thread-109437-1-1.html,比较组码，主要是70不同
谢谢黄兄 话说黄兄解答了我不少疑问哈 太感谢了 entmake+组码，才学到，记录下，
黄大师提供的是横向的假标，竖向加俩组码搞定
页:
[1]