求修改标注对齐避让程序

ymcui2005 · 发表于 2013-12-17 10:07:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;==>>><<<==标注对齐
(defun c:cv (/ ent ent0 entlstx entlsty i p0 p0x p0y p10 p13 p70 ptx pty sc slen snap ss xsw)
(setvar "osmode" 1)
(WHILE (setq ss (ssget '((0 . "DIMENSION")))
DIMhighscale 1
ent (ssname ss 0)
ent (entget ent)
p10 (cdr (assoc 10 ent))
p13 (cdr (assoc 13 ent))
p111 (getpoint "\n指定对齐点, 或<右键退出>:")
p0 (trans p111 1 0)
pts (+ 0 (getvar "DIMTXT") (getvar "DIMscale"))
DIMhigh (- pts 0)
SC 1
)
(setvar "osmode" 247)
(setvar "cmdecho" 0)
(COMMAND ".UNDO" "BE")
(setq os (getvar "osmode")
xsw (getvar "DIMZIN")
)
(setvar "DIMZIN" 0)
(if p0
(progn
(setvar "osmode" 0)
(setq p0x (car p0)
p0y (cadr p0)
)
(setq entlstX '()
entlstY '()
PTX '()
PTY '()
)
(setq slen (sslength ss)
I 0
)
(while (ssname ss I)
(setq ent0 (ssname ss I))
(setq ent (entget ent0))
(setq p70 (cdr (assoc 70 ent))
p13 (cdr (assoc 13 ent))
)
(cond
((= p70 102.0)
(setq entlstX (cons ent0 entlstX)
PTX (cons p13 PTX)
)
)
((= p70 38.0)
(setq entlstY (cons ent0 entlstY)
PTY (cons p13 PTY)
)
)
(t
(exit)
)
)
(setq I (+ 1 I))
)
(setq PTX (ymdq-01 PTX))
(setq PTY (ymdq-02 PTY))
(if (/= entlstX '())
(progn
(setq entlstX (ymdq-03 entlstX PTX))
(ymdq-04 entlstX P0 P10 SC)
(ymdq-06 entlstX p10)
)
)
(if (/= entlstY '())
(progn
(setq entlstY (ymdq-03 entlstY PTY))
(ymdq-05 entlstY P0 P10 SC)
(ymdq-07 entlstY p10)
)
)
(setvar "osmode" os)
)
)
)
(vl-cmdf ".UNDO" "E")
(setvar "osmode" os)
(setvar "DIMZIN" xsw)
(princ)
)
;;; 提炼 X 坐标，并排序
(defun ymdq-01 (LST_PT / e1 e2 i lst_x lstl pt tmp x y)
(setq LST_X '())
(foreach PT LST_PT
(setq X (car PT)
Y (cadr PT)
)
(if (setq TMP (assoc X LST_X))
(setq LST_X (subst
(append
(list X Y)
(cdr TMP)
)
TMP
LST_X
)
)
(setq LST_X (cons (list X Y) LST_X))
)
)
(setq LST_X (mapcar
'(lambda (E1)
(cons (car E1) (vl-sort (cdr E1) '<))
)
LST_X
)
)
(setq LST_X (vl-sort LST_X '(lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
(setq i 0
LSTL '()
)
(while (< i (length LST_X))
(setq LSTL (cons (list (car (nth i LST_X)) (cadr (nth i LST_X)) 0.0) LSTL))
(setq i (+ 1 i))
)
(setq LST_X (reverse LSTL))
LST_X
)
;;提炼 Y 坐标，并排序
(defun ymdq-02 (LST_PT / e1 e2 i lst_y lstl pt tmp x y)
(setq LST_Y '())
(foreach PT LST_PT
(setq X (car PT)
Y (cadr PT)
)
(if (setq TMP (assoc Y LST_Y))
(setq LST_Y (subst
(append
(list Y X)
(cdr TMP)
)
TMP
LST_Y
)
)
(setq LST_Y (cons (list Y X) LST_Y))
)
)
(setq LST_Y (mapcar
'(lambda (E1)
(cons (car E1) (vl-sort (cdr E1) '<))
)
LST_Y
)
)
(setq LST_Y (vl-sort LST_Y '(lambda (E1 E2)
(< (car E1) (car E2))
)
)
)
(setq i 0
LSTL '()
)
(while (< i (length LST_Y))
(setq LSTL (cons (list (cadr (nth i LST_Y)) (car (nth i LST_Y)) 0.0) LSTL))
(setq i (+ 1 i))
)
(setq LST_Y (reverse LSTL))
LST_Y
)
;;将标注图元名列表按照按照点列表顺序排序
(defun ymdq-03 (entlstX PTX / entlstxl i j p13 xy)
(setq i 0
entlstXL '()
)
(while (< i (length PTX))
(setq P13 (cons 13 (nth i PTX)))
(setq j 0)
(while (< j (length entlstX))
(setq XY (entget (nth j entlstX)))
(if (member P13 XY)
(setq entlstXL (cons (nth j entlstX) entlstXL))
)
(setq j (+ 1 j))
)
(setq i (+ 1 i))
)
(setq entlstX (reverse entlstXL))
entlstX
)
;;按照图元列表顺序对齐X坐标
(defun ymdq-04 (entlstX P0 P10 SC / en1 ent j p0y p1 p10x p10y pt1 x x_last y)
(setq p0y (cadr P0))
(setq p10X (car P10)
p10Y (cadr P10)
)
(setq j 0)
(setq X_LAST (car (cdr (assoc 13 (entget (nth 0 entlstX))))))
(while (< j (length entlstX))
(setq ent (nth j entlstX))
(setq en1 (entget ent))
(setq P1 (cdr (assoc 13 en1)))
(setq X (car P1)
Y (cadr P1)
)
(setq X_LAST (max
X
X_LAST
)
)
(setq STR (* SC (- X p10X)))
(setq en1 (subst
(cons 1 (rtos STR 2 2))
(assoc 1 en1)
en1
)
)|;
(setq PT1 (list X_LAST p0y 0.0))
(setq en1 (subst
(cons 14 PT1)
(assoc 14 en1)
en1
)
)
(entmod en1)
(setq X_LAST (+ X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
(setq j (+ 1 j))
)
)
;;按照图元列表顺序对齐Y坐标
(defun ymdq-05 (entlstY P0 P10 SC / en1 ent j p0x p1 p10x p10y pt1 x y y_last)
(setq p0x (car P0))
(setq p10X (car P10)
p10Y (cadr P10)
)
(setq j 0)
(setq Y_LAST (cadr (cdr (assoc 13 (entget (nth 0 entlstY))))))
(while (< j (length entlstY))
(setq ent (nth j entlstY))
(setq en1 (entget ent))
(setq P1 (cdr (assoc 13 en1)))
(setq X (car P1)
Y (cadr P1)
)
(setq Y_LAST (max
Y
Y_LAST
)
)
(setq STR (* SC (- Y p10Y)))
;|(setq en1 (subst
(cons 1 (rtos STR 2 2))
(assoc 1 en1)
en1
)
)|;
(setq PT1 (list p0x Y_LAST 0.0))
(setq en1 (subst
(cons 14 PT1)
(assoc 14 en1)
en1
)
)
(entmod en1)
(setq Y_LAST (+ Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
(setq j (+ 1 j))
)
)
;; 优化X坐标偏移
(defun ymdq-06 (lsp pt / ent ent1 i il lsty lstz np14 x x_last x0 y0)
(setq X0 (car pt))
(setq Y0 (cadr pt))
(setq i 0
il 0
LSTZ '()
LSTY '()
)
(while (< i (length lsp))
(setq X (car (cdr (assoc 13 (entget (nth i lsp))))))
(if (<= X X0)
(setq LSTZ (cons (nth i lsp) LSTZ))
(setq LSTY (cons (nth i lsp) LSTY))
)
(SETQ i (+ 1 i))
)
(setq LSTZ LSTZ)
(setq LSTY (reverse LSTY))
(if (/= LSTZ '())
(progn
(setq i 0)
(setq X_LAST (car (cdr (assoc 13 (entget (nth 0 LSTZ))))))
(while (< i (length LSTZ))
(setq ent (nth i LSTZ))
(setq ent1 (entget ent))
(setq X (car (cdr (assoc 13 ent1))))
(setq X_LAST (min
X
X_LAST
)
)
(setq nP14 (list X_LAST (cadr (cdr (assoc 14 ent1))) 0.0))
(setq ent1 (subst
(cons 14 nP14)
(assoc 14 ent1)
ent1
)
)
(entmod ent1)
(SETQ i (+ 1 i))
(setq X_LAST (- X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
)
)
)
(if (/= LSTY '())
(progn
(setq i 0)
(setq X_LAST (+ X0 (* DIMhighscale DIMhigh (getvar "DIMscale"))))
(while (< i (length LSTY))
(setq ent (nth i LSTY))
(setq ent1 (entget ent))
(setq X (car (cdr (assoc 13 ent1))))
(setq X_LAST (max
X
X_LAST
)
)
(setq nP14 (list X_LAST (cadr (cdr (assoc 14 ent1))) 0.0))
(setq ent1 (subst
(cons 14 nP14)
(assoc 14 ent1)
ent1
)
)
(entmod ent1)
(SETQ i (+ 1 i))
(setq X_LAST (+ X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
)
)
)
)
;; 优化Y坐标偏移
(defun ymdq-07 (lsp pt / ent ent1 i il lsts lstx np14 x0 y y_last y0)
(setq X0 (car pt))
(setq Y0 (cadr pt))
(setq i 0
il 0
LSTX '()
LSTS '()
)
(while (< i (length lsp))
(setq Y (cadr (cdr (assoc 13 (entget (nth i lsp))))))
(if (<= Y Y0)
(setq LSTX (cons (nth i lsp) LSTX))
(setq LSTS (cons (nth i lsp) LSTS))
)
(SETQ i (+ 1 i))
)
(setq LSTX LSTX)
(setq LSTS (reverse LSTS))
(if (/= LSTX '())
(progn
(setq i 0)
(setq Y_LAST (cadr (cdr (assoc 13 (entget (nth 0 LSTX))))))
(while (< i (length LSTX))
(setq ent (nth i LSTX))
(setq ent1 (entget ent))
(setq Y (cadr (cdr (assoc 13 ent1))))
(setq Y_LAST (min
Y
Y_LAST
)
)
(setq nP14 (list (car (cdr (assoc 14 ent1))) Y_LAST 0.0))
(setq ent1 (subst
(cons 14 nP14)
(assoc 14 ent1)
ent1
)
)
(entmod ent1)
(SETQ i (+ 1 i))
(setq Y_LAST (- Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
)
)
)
(if (/= LSTS '())
(progn
(setq i 0)
(setq Y_LAST (+ Y0 (* DIMhighscale DIMhigh (getvar "DIMscale"))))
(while (< i (length LSTS))
(setq ent (nth i LSTS))
(setq ent1 (entget ent))
(setq Y (cadr (cdr (assoc 13 ent1))))
(setq Y_LAST (max
Y
Y_LAST
)
)
(setq nP14 (list (car (cdr (assoc 14 ent1))) Y_LAST 0.0))
(setq ent1 (subst
(cons 14 nP14)
(assoc 14 ent1)
ent1
)
)
(entmod ent1)
(SETQ i (+ 1 i))
(setq Y_LAST (+ Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale"))))
)
)
)
)

;;==>>><<<==标注对齐 
(defun c:cv (/ ent ent0 entlstx entlsty i p0 p0x p0y p10 p13 p70 ptx pty sc slen snap ss xsw) 
  (setvar "osmode" 1) 
  (WHILE (setq ss (ssget '((0 . "DIMENSION"))) 
        DIMhighscale 1 
        ent (ssname ss 0) 
        ent (entget ent) 
        p10 (cdr (assoc 10 ent)) 
        p13 (cdr (assoc 13 ent)) 
        p111 (getpoint "\n指定对齐点, 或<右键退出>:") 
        p0 (trans p111 1 0) 
        pts (+ 0 (getvar "DIMTXT") (getvar "DIMscale")) 
        DIMhigh (- pts 0) 
        SC 1 
) 
  (setvar "osmode" 247) 
  (setvar "cmdecho" 0) 
  (COMMAND ".UNDO" "BE") 
  (setq os (getvar "osmode") 
        xsw (getvar "DIMZIN") 
) 
  (setvar "DIMZIN" 0) 
  (if p0 
    (progn 
      (setvar "osmode" 0) 
      (setq p0x (car p0) 
            p0y (cadr p0) 
      ) 
      (setq entlstX '() 
            entlstY '() 
            PTX '() 
            PTY '() 
      ) 
      (setq slen (sslength ss) 
            I 0 
      ) 
      (while (ssname ss I) 
        (setq ent0 (ssname ss I)) 
        (setq ent (entget ent0)) 
        (setq p70 (cdr (assoc 70 ent)) 
              p13 (cdr (assoc 13 ent)) 
        ) 
        (cond 
          ((= p70 102.0) 
            (setq entlstX (cons ent0 entlstX) 
                  PTX (cons p13 PTX) 
            ) 
          ) 
          ((= p70 38.0) 
            (setq entlstY (cons ent0 entlstY) 
                  PTY (cons p13 PTY) 
            ) 
          ) 
          (t 
            (exit) 
          ) 
        ) 
        (setq I (+ 1 I)) 
      ) 
     (setq PTX (ymdq-01 PTX)) 
     (setq PTY (ymdq-02 PTY)) 
      (if (/= entlstX '()) 
        (progn 
          (setq entlstX (ymdq-03 entlstX PTX)) 
          (ymdq-04 entlstX P0 P10 SC) 
          (ymdq-06 entlstX p10) 
        ) 
      ) 
      (if (/= entlstY '()) 
        (progn 
          (setq entlstY (ymdq-03 entlstY PTY)) 
          (ymdq-05 entlstY P0 P10 SC) 
          (ymdq-07 entlstY p10) 
        ) 
      ) 
      (setvar "osmode" os) 
    ) 
   ) 
  ) 
  (vl-cmdf ".UNDO" "E") 
  (setvar "osmode" os) 
  (setvar "DIMZIN" xsw) 
  (princ) 
) 
;;; 提炼 X 坐标，并排序 
(defun ymdq-01 (LST_PT / e1 e2 i lst_x lstl pt tmp x y) 
  (setq LST_X '()) 
  (foreach PT LST_PT 
    (setq X (car PT) 
          Y (cadr PT) 
    ) 
    (if (setq TMP (assoc X LST_X)) 
      (setq LST_X (subst 
                    (append 
                      (list X Y) 
                      (cdr TMP) 
                    ) 
                    TMP 
                    LST_X 
                  ) 
      ) 
      (setq LST_X (cons (list X Y) LST_X)) 
    ) 
  ) 
  (setq LST_X (mapcar 
                '(lambda (E1) 
                   (cons (car E1) (vl-sort (cdr E1) '<)) 
                 ) 
                LST_X 
              ) 
  ) 
  (setq LST_X (vl-sort LST_X '(lambda (E1 E2) 
                                (< (car E1) (car E2)) 
                              ) 
              ) 
  ) 
  (setq i 0 
        LSTL '() 
  ) 
  (while (
    (setq LSTL (cons (list (car (nth i LST_X)) (cadr (nth i LST_X)) 0.0) LSTL)) 
    (setq i (+ 1 i)) 
  ) 
  (setq LST_X (reverse LSTL)) 
  LST_X 
) 
;;提炼 Y 坐标，并排序 
(defun ymdq-02 (LST_PT / e1 e2 i lst_y lstl pt tmp x y) 
  (setq LST_Y '()) 
  (foreach PT LST_PT 
    (setq X (car PT) 
          Y (cadr PT) 
    ) 
    (if (setq TMP (assoc Y LST_Y)) 
      (setq LST_Y (subst 
                    (append 
                      (list Y X) 
                      (cdr TMP) 
                    ) 
                    TMP 
                    LST_Y 
                  ) 
      ) 
      (setq LST_Y (cons (list Y X) LST_Y)) 
    ) 
  ) 
  (setq LST_Y (mapcar 
                '(lambda (E1) 
                   (cons (car E1) (vl-sort (cdr E1) '<)) 
                 ) 
                LST_Y 
              ) 
  ) 
  (setq LST_Y (vl-sort LST_Y '(lambda (E1 E2) 
                                (< (car E1) (car E2)) 
                              ) 
              ) 
  ) 
  (setq i 0 
        LSTL '() 
  ) 
  (while (
    (setq LSTL (cons (list (cadr (nth i LST_Y)) (car (nth i LST_Y)) 0.0) LSTL)) 
    (setq i (+ 1 i)) 
  ) 
  (setq LST_Y (reverse LSTL)) 
  LST_Y 
) 
;;将标注图元名列表按照按照点列表顺序排序 
(defun ymdq-03 (entlstX PTX / entlstxl i j p13 xy) 
  (setq i 0 
        entlstXL '() 
  ) 
  (while (
    (setq P13 (cons 13 (nth i PTX))) 
    (setq j 0) 
    (while (< j (length entlstX)) 
      (setq XY (entget (nth j entlstX))) 
      (if (member P13 XY) 
        (setq entlstXL (cons (nth j entlstX) entlstXL)) 
      ) 
      (setq j (+ 1 j)) 
    ) 
    (setq i (+ 1 i)) 
  ) 
  (setq entlstX (reverse entlstXL)) 
  entlstX 
) 
;;按照图元列表顺序对齐X坐标 
(defun ymdq-04 (entlstX P0 P10 SC / en1 ent j p0y p1 p10x p10y pt1 x x_last y) 
  (setq p0y (cadr P0)) 
  (setq p10X (car P10) 
        p10Y (cadr P10) 
  ) 
  (setq j 0) 
  (setq X_LAST (car (cdr (assoc 13 (entget (nth 0 entlstX)))))) 
  (while (< j (length entlstX)) 
    (setq ent (nth j entlstX)) 
    (setq en1 (entget ent)) 
    (setq P1 (cdr (assoc 13 en1))) 
    (setq X (car P1) 
          Y (cadr P1) 
    ) 
    (setq X_LAST (max 
                   X 
                   X_LAST 
                 ) 
    ) 
    (setq STR  (* SC (- X p10X))) 
    (setq en1 (subst 
                (cons 1 (rtos STR 2 2)) 
                (assoc 1 en1) 
                en1 
              ) 
    )|; 
    (setq PT1 (list X_LAST p0y 0.0)) 
    (setq en1 (subst 
                (cons 14 PT1) 
                (assoc 14 en1) 
                en1 
              ) 
    ) 
    (entmod en1) 
    (setq X_LAST (+ X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
    (setq j (+ 1 j)) 
  ) 
) 
;;按照图元列表顺序对齐Y坐标 
(defun ymdq-05 (entlstY P0 P10 SC / en1 ent j p0x p1 p10x p10y pt1 x y y_last) 
  (setq p0x (car P0)) 
  (setq p10X (car P10) 
        p10Y (cadr P10) 
  ) 
  (setq j 0) 
  (setq Y_LAST (cadr (cdr (assoc 13 (entget (nth 0 entlstY)))))) 
  (while (< j (length entlstY)) 
    (setq ent (nth j entlstY)) 
    (setq en1 (entget ent)) 
    (setq P1 (cdr (assoc 13 en1))) 
    (setq X (car P1) 
          Y (cadr P1) 
    ) 
    (setq Y_LAST (max 
                   Y 
                   Y_LAST 
                 ) 
    ) 
    (setq STR  (* SC (- Y p10Y))) 
    ;|(setq en1 (subst 
                (cons 1 (rtos STR 2 2)) 
                (assoc 1 en1) 
                en1 
              ) 
    )|; 
    (setq PT1 (list p0x Y_LAST 0.0)) 
    (setq en1 (subst 
                (cons 14 PT1) 
                (assoc 14 en1) 
                en1 
              ) 
    ) 
    (entmod en1) 
    (setq Y_LAST (+ Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
    (setq j (+ 1 j)) 
  ) 
) 
;; 优化X坐标偏移 
(defun ymdq-06 (lsp pt / ent ent1 i il lsty lstz np14 x x_last x0 y0) 
  (setq X0 (car pt)) 
  (setq Y0 (cadr pt)) 
  (setq i 0 
        il 0 
        LSTZ '() 
        LSTY '() 
  ) 
  (while (
    (setq X (car (cdr (assoc 13 (entget (nth i lsp)))))) 
    (if (<= X X0) 
      (setq LSTZ (cons (nth i lsp) LSTZ)) 
      (setq LSTY (cons (nth i lsp) LSTY)) 
    ) 
    (SETQ i (+ 1 i)) 
  ) 
  (setq LSTZ LSTZ) 
  (setq LSTY (reverse LSTY)) 
  (if (/= LSTZ '()) 
    (progn 
      (setq i 0) 
      (setq X_LAST (car (cdr (assoc 13 (entget (nth 0 LSTZ)))))) 
      (while (
        (setq ent (nth i LSTZ)) 
        (setq ent1 (entget ent)) 
        (setq X (car (cdr (assoc 13 ent1)))) 
        (setq X_LAST (min 
                       X 
                       X_LAST 
                     ) 
        ) 
        (setq nP14 (list X_LAST (cadr (cdr (assoc 14 ent1))) 0.0)) 
        (setq ent1 (subst 
                     (cons 14 nP14) 
                     (assoc 14 ent1) 
                     ent1 
                   ) 
        ) 
        (entmod ent1) 
        (SETQ i (+ 1 i)) 
        (setq X_LAST (- X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      ) 
    ) 
  ) 
  (if (/= LSTY '()) 
    (progn 
      (setq i 0) 
      (setq X_LAST (+ X0 (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      (while (
        (setq ent (nth i LSTY)) 
        (setq ent1 (entget ent)) 
        (setq X (car (cdr (assoc 13 ent1)))) 
        (setq X_LAST (max 
                       X 
                       X_LAST 
                     ) 
        ) 
        (setq nP14 (list X_LAST (cadr (cdr (assoc 14 ent1))) 0.0)) 
        (setq ent1 (subst 
                     (cons 14 nP14) 
                     (assoc 14 ent1) 
                     ent1 
                   ) 
        ) 
        (entmod ent1) 
        (SETQ i (+ 1 i)) 
        (setq X_LAST (+ X_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      ) 
    ) 
  ) 
) 
;; 优化Y坐标偏移 
(defun ymdq-07 (lsp pt / ent ent1 i il lsts lstx np14 x0 y y_last y0) 
  (setq X0 (car pt)) 
  (setq Y0 (cadr pt)) 
  (setq i 0 
        il 0 
        LSTX '() 
        LSTS '() 
  ) 
  (while (
    (setq Y (cadr (cdr (assoc 13 (entget (nth i lsp)))))) 
    (if (<= Y Y0) 
      (setq LSTX (cons (nth i lsp) LSTX)) 
      (setq LSTS (cons (nth i lsp) LSTS)) 
    ) 
    (SETQ i (+ 1 i)) 
  ) 
  (setq LSTX LSTX) 
  (setq LSTS (reverse LSTS)) 
  (if (/= LSTX '()) 
    (progn 
      (setq i 0) 
      (setq Y_LAST (cadr (cdr (assoc 13 (entget (nth 0 LSTX)))))) 
      (while (
        (setq ent (nth i LSTX)) 
        (setq ent1 (entget ent)) 
        (setq Y (cadr (cdr (assoc 13 ent1)))) 
        (setq Y_LAST (min 
                       Y 
                       Y_LAST 
                     ) 
        ) 
        (setq nP14 (list (car (cdr (assoc 14 ent1))) Y_LAST 0.0)) 
        (setq ent1 (subst 
                     (cons 14 nP14) 
                     (assoc 14 ent1) 
                     ent1 
                   ) 
        ) 
        (entmod ent1) 
        (SETQ i (+ 1 i)) 
        (setq Y_LAST (- Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      ) 
    ) 
  ) 
  (if (/= LSTS '()) 
    (progn 
      (setq i 0) 
      (setq Y_LAST (+ Y0 (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      (while (
        (setq ent (nth i LSTS)) 
        (setq ent1 (entget ent)) 
        (setq Y (cadr (cdr (assoc 13 ent1)))) 
        (setq Y_LAST (max 
                       Y 
                       Y_LAST 
                     ) 
        ) 
        (setq nP14 (list (car (cdr (assoc 14 ent1))) Y_LAST 0.0)) 
        (setq ent1 (subst 
                     (cons 14 nP14) 
                     (assoc 14 ent1) 
                     ent1 
                   ) 
        ) 
        (entmod ent1) 
        (SETQ i (+ 1 i)) 
        (setq Y_LAST (+ Y_LAST (* DIMhighscale DIMhigh (getvar "DIMscale")))) 
      ) 
    ) 
  ) 
)

标注对齐时有一些尺寸可以有一些不行,会出现:错误: quit / exit abort

ymcui2005 · 发表于 2013-12-17 10:08:37

w379106181 · 发表于 2018-1-25 15:56:58

谢谢分享谢谢分享谢谢分享谢谢分享

大香蕉 · 发表于 2019-3-17 17:53:47

好人一生平安

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

[求助] 求修改标注对齐避让程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子