[求助]关于坐标标注的问题(附图),各位请进！

sailorcwx · 发表于 2009-10-17 21:05:00

(defun c:md(/ DXF70 ENT ENTDXF)
(if (setq ent (entsel))
(progn
(setq ent (car ent))
(setq entdxf (entget ent))
(setq dxf70 (cdr (assoc 70 entdxf)))
(if (= dxf70 38)(entmod (subst (list 14 (cadr(assoc 14 entdxf)) (caddr(assoc 13 entdxf)) (cadddr(assoc 14 entdxf))) (assoc 14 entdxf) entdxf)))
(if (= dxf70 102)(entmod (subst (list 14 (cadr(assoc 13 entdxf)) (caddr(assoc 14 entdxf)) (cadddr(assoc 14 entdxf))) (assoc 14 entdxf) entdxf)))
)
)
(princ)
)

Andyhon · 发表于 2009-10-17 21:28:00

insufficient display

要以原图（＊.dwg) 为准
(请上传)

且一并列出其余实务状况.....
(方便调试之用....)

cj52000 · 发表于 2009-10-18 02:31:00

谢谢sailorcwx的程序，很好用，正合我意，就是能不能提个小小要求，如果要是能多选就好了，不用一个个点，能否帮忙改下，谢谢大家的热心！

cj52000 · 发表于 2009-10-20 18:57:00

sailorcwx兄，请关注我的另一个贴子：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78806

和您写的那个程序有点相反，谢谢！

hbtl · 发表于 2009-10-20 19:46:00

我一般标注成直的就是直的，折线行式的也就随它了

不过还是等待高手的出现，我也很想知道答案。

啵浪鼓 · 发表于 2009-10-21 00:06:00

我很奇怪,同样是手动标注,但有些坐标标注为什么会是230的dxf组码,将11楼的程序改成支持多选,但是230的标注使终改不了!

;by sailorcwx
(defun c:qa(/ DXF70 ENT ENTDXF)
    (setq os (getvar "osmode"))
    (setvar "cmdecho" 0)
    (command "undo" "be")
    (setq ss (ssget '((0 . "DIMENSION"))))
    (setq i 0)
    (while (< i (sslength ss))
       (setq ent (ssname ss i))
       (setq entdxf (entget ent))
       (setq dxf70 (cdr (assoc 70 entdxf)))
       (if (= dxf70 38)(entmod (subst (list 14 (cadr(assoc 14 entdxf)) (caddr(assoc 13 entdxf)) (cadddr(assoc 14 entdxf)))

(assoc 14 entdxf) entdxf)))
(if (= dxf70 102)(entmod (subst (list 14 (cadr(assoc 13 entdxf)) (caddr(assoc 14 entdxf)) (cadddr(assoc 14 entdxf)))

(assoc 14 entdxf) entdxf)))
(if (= dxf70 230)(entmod (subst (list 14 (cadr(assoc 13 entdxf)) (caddr(assoc 14 entdxf)) (cadddr(assoc 14 entdxf)))

(assoc 14 entdxf) entdxf)))
       (setq i (+ i 1))
     )
    (setvar "osmode" os)

(command "undo" "e")
(princ)
)

账号		自动登录	找回密码
密码			注册