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

Point5

效果如图   

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

Point5

2. (defun C:zddw(/ col mn mode pt1 pt1-2 pt2 pt2-2)
   
3.        
   
4.         (setq mn (zdwkgj (ssget)))
   
5.         (setq pt1 (car mn))
   
6.         (setq pt2 (cadr mn))
   
7.         (setq pt1-2 (list (car pt2) (cadr pt1) 0.0))
   
8.         (setq pt2-2 (list (car pt1) (cadr pt2) 0.0))
   
9.        
   
10.         (setq mode (getvar "OSMODE"))
    
11.         (setvar "OSMODE" 0)
    
12.        
    
13.         (command "DIMLINEAR" pt1 pt2-2 "@ -50,0")
    
14.        
    
15.         (command "DIMLINEAR" pt2 pt2-2 "@ 0,50")
    
16.        
    
17.         (setvar "OSMODE" mode)
    
18.        
    
19. )
    
20. 
    
21. 
    
22. (defun C:zddn(/ col mn mode pt1 pt1-2 pt2 pt2-2)
    
23.        
    
24.         (setq mn (zdwkgj (ssget)))
    
25.         (setq pt1 (car mn))
    
26.         (setq pt2 (cadr mn))
    
27.         (setq pt1-2 (list (car pt2) (cadr pt1) 0.0))
    
28.         (setq pt2-2 (list (car pt1) (cadr pt2) 0.0))
    
29.        
    
30.         (setq mode (getvar "OSMODE"))
    
31.         (setvar "OSMODE" 0)
    
32.        
    
33.         (command "DIMLINEAR" pt1 pt2-2 "@ 100,0.3")
    
34.        
    
35.         (command "DIMLINEAR" pt2 pt2-2 "@ 0,-100")
    
36.        
    
37.         (setvar "OSMODE" mode)
    
38.        
    
39. )

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

Point5

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

bobodod

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

我一想起你就

文本可以吗？

czb203

文本可以吗？

韩飞翔

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

bobodod

正需要  哈哈  
大佬666

bobodod

浩辰2022用不了  

zjfcumt

没看明白，什么功能啊、