Point5 发表于 2022-2-15 12:17:19

<源码>框选图形最大外框，最大外形中心线

本帖最后由 Point5 于 2022-2-21 08:58 编辑

效果如图   

zdd   框选   最大外框
zce    框选   最大外框中心线



Point5 发表于 2022-3-7 14:49:33

(defun C:zddw(/ col mn mode pt1 pt1-2 pt2 pt2-2)
       
        (setq mn (zdwkgj (ssget)))
        (setq pt1 (car mn))
        (setq pt2 (cadr mn))
        (setq pt1-2 (list (car pt2) (cadr pt1) 0.0))
        (setq pt2-2 (list (car pt1) (cadr pt2) 0.0))
       
        (setq mode (getvar "OSMODE"))
        (setvar "OSMODE" 0)
       
        (command "DIMLINEAR" pt1 pt2-2 "@ -50,0")
       
        (command "DIMLINEAR" pt2 pt2-2 "@ 0,50")
       
        (setvar "OSMODE" mode)
       
)


(defun C:zddn(/ col mn mode pt1 pt1-2 pt2 pt2-2)
       
        (setq mn (zdwkgj (ssget)))
        (setq pt1 (car mn))
        (setq pt2 (cadr mn))
        (setq pt1-2 (list (car pt2) (cadr pt1) 0.0))
        (setq pt2-2 (list (car pt1) (cadr pt2) 0.0))
       
        (setq mode (getvar "OSMODE"))
        (setvar "OSMODE" 0)
       
        (command "DIMLINEAR" pt1 pt2-2 "@ 100,0.3")
       
        (command "DIMLINEAR" pt2 pt2-2 "@ 0,-100")
       
        (setvar "OSMODE" mode)
       
)

Point5 发表于 2022-3-7 14:46:48

2022年3月7号更新
增加功能
zddw    框选最大外形标注外标注
zddn   框选最大外形标注内标注

bobodod 发表于 2022-5-11 13:49:17

可以了原来是没加载之前的函数感谢大佬

我一想起你就 发表于 2022-2-26 07:40:51

文本可以吗？

czb203 发表于 2022-2-27 23:12:54


文本可以吗？

韩飞翔 发表于 2022-4-14 17:27:56

感觉浪费了一个币；这个功能太简单了，我以为是最小外轮廓，

bobodod 发表于 2022-5-11 13:43:28

正需要哈哈
大佬666

bobodod 发表于 2022-5-11 13:46:08

浩辰2022用不了

zjfcumt 发表于 2022-5-25 13:57:27

页: [1] 2
查看完整版本: <源码>框选图形最大外框，最大外形中心线