选中加外框，求大佬帮忙修改一下

soso

(defun c:ww (/ *error* lst owners)
  (vl-load-com)
  (defun *error* ( msg )
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
                        (princ (strcat "\n** Error: " msg " **")))
    (princ)
  )
        (setq lst
                (vl-remove-if
                        (function
                                (lambda ( object )
                                        (vl-position object owners)
                                )
                        )
                        (LM:SS->VLA (ssget))
                )
        )
        (setq lst        (LM:BBox->List
                                                        (LMistBoundingBox lst)
                                                ))
        (command "RECTANG" "non" (car lst) "non" (caddr lst))
        (COMMAND "OFFSET"  "e"  "Y" "" "")
        (COMMAND "OFFSET"  "e"  "N" "" "")
        (princ)
)
(defun LM:ss->vla ( ss )
  ;; ?Lee Mac 2010
  (if ss
    (
      (lambda ( i / e l )
        (while (setq e (ssname ss (setq i (1+ i))))
          (setq l (cons (vlax-ename->vla-object e) l))
        )
        l
      )
      -0
    )
  )
)
(defun LMistBoundingBox ( lst / ll ur bb )
  ;; ?Lee Mac 2010
  (foreach obj lst (vla-getBoundingBox obj 'll 'ur)
    (setq bb (cons (vlax-safearray->list ur)
                                                         (cons (vlax-safearray->list ll) bb))
    )
  )
  (mapcar
    (function
      (lambda ( operation )
        (apply (function mapcar) (cons operation bb))
      )
    )
                '(min max)
  )
)
(defun LM:BBox->List ( bbox )
  (mapcar
    (function
      (lambda ( funcs )
        (mapcar
          (function
            (lambda ( func ) ((eval func) bbox))
          )
          funcs
        )
      )
    )
    '((caar  cadar)  (caadr cadar) (caadr cadadr) (caar  cadadr))
  )
)



为啥右边会多一些   

start4444

多数是多行字体的问题

soso

start4444 发表于 2024-5-9 14:23
多数是多行字体的问题

可以帮忙修改一下吗 大佬 每个都向右增加了一些

xyp1964

里面的“综合整理”宽度超出了图框边界

xyp1964

神经选择方框

soso

来个大佬 帮忙修改一下

bonny

特例特处理