有没有类拟lsp生成一个边界框

wjl1014

这是一个经典的写法，佩服楼主。

dforme

这程序不错哦，先收藏了

linshiyin2

收藏，很好用，干脆出个通用函数，选择集的max和min。

395969

谢谢版主，很好用

心中的梦想

谢谢分享！！！！！！！！！！

tangjunasd58

;【PF工具箱--自动边界盒】
(defun c:bjh (/ ss i l1 l2 ll ur os d)
   (setq os (getvar 'osmode))
   (PRINC "\n【PF工具箱--QQ交流群：214654218】--自动边界盒 ")(PRINC)  
   (setq d (getreal "\n偏距<5>"))
   (if (null d)
     (setq d 5)
   )
   (setq ss (ssget))
   (repeat (setq i (sslength ss))
     (vla-getboundingbox
       (vlax-ename->vla-object (ssname ss (setq i (1- i))))
       'll
       'ur
     )
     (setq l1 (cons (vlax-safearray->list ll) l1)
           l2 (cons (vlax-safearray->list ur) l2)
     )
   )
   (mapcar 'set
           (list 'll 'ur)
           (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
                   '(min max)
                   (list l1 l2)
           )
   )
   (command
     "rectang"
     (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))
            0
            1
     )
     (trans (polar ur (* pi 0.25) d) 0 1)
   )
   (setvar 'osmode os)
   (princ)
)

296715530

Gu_xl 发表于 2012-5-25 17:49

感谢版主
东拼西凑加了记忆功能，和外框指定图层，以及中途退出捕捉恢复



(defun c:wk (/ ss i l1 l2 ll ur os d)
  (defun *MYERR* (MSG)
(setvar "CMDECHO" CMD_OLD)
(setvar "OSMODE" OS_OLD)
(setq *ERROR* *OLDERR*)
(if (= MSG "完美退出。谢谢使用。")
     (princ (strcat "\\n>>>" MSG))
     (princ "\n>>>虽然中途退出了，对象捕捉已经被恢复。")
)
(princ)
    )
    (setq *OLDERR* *ERROR*
   *ERROR*  *MYERR*
   OS_OLD   (getvar "OSMODE")
   CMD_OLD  (getvar "CMDECHO")
    )
(setvar "CMDECHO" 0);_关闭命令提示
(Setq osmode_bak (getvar "osmode"));_记录捕捉
(Setvar "osmode" 0);_关闭捕捉

(if *Scale* (setq d (getreal (strcat  "\n偏距<" (rtos *Scale* 2 2) ">:") ) )  (setq d (getreal  "\n偏

距:")))
(if (null d) (setq d *Scale*) (setq *Scale*  d ))

(setq ss (ssget))
  (repeat (setq i (sslength ss))
    (vla-getboundingbox
      (vlax-ename->vla-object (ssname ss (setq i (1- i))))
      'll
      'ur
    )
    (setq l1 (cons (vlax-safearray->list ll) l1)
          l2 (cons (vlax-safearray->list ur) l2)
    )
  )
  (mapcar 'set
          (list 'll 'ur)
          (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
                  '(min max)
                  (list l1 l2)
          )
  )
  (command
    "rectang"
    (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))
           0
           1
    )
    (trans (polar ur (* pi 0.25) d) 0 1)
  )

(command "CHPROP" "L" "" "LA" "_3" "");指定图层
(Setvar "osmode" osmode_bak);_还原捕捉


(setvar "CMDECHO" 1);_打开命令提示


  (princ)
)

lm523242423

要这抓外框再取整就完美了

999999

支持支持，，，，