soso 发表于 2024-5-9 13:50

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

本帖最后由 soso 于 2024-5-9 16:47 编辑



(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
                                                      (LM:ListBoundingBox 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 LM:ListBoundingBox ( 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
      )
      )
    )
    '((caarcadar)(caadr cadar) (caadr cadadr) (caarcadadr))
)
)



为啥右边会多一些   


start4444 发表于 2024-5-9 14:23

多数是多行字体的问题

soso 发表于 2024-5-9 17:37

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

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

xyp1964 发表于 2024-5-9 22:13

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

xyp1964 发表于 2024-5-9 23:30

神经选择方框


soso 发表于 2024-5-12 19:10

来个大佬 帮忙修改一下

bonny 发表于 2024-5-13 00:40

本帖最后由 bonny 于 2024-5-13 00:44 编辑

特例特处理
页: [1]
查看完整版本: 选中加外框，求大佬帮忙修改一下