求一个单纯的洞口线插件

yefei812678

zmzk 发表于 2024-1-4 10:45

能不能改成 直接在矩形里点就可以   能不能设置线型

cheng199141

看看了解哈

yefei812678

顶起来啊:

newmooooon

2. (defun c:dk( / mydefunction dk_bili dk_min dk_layer)
   
3.         (setq dk_bili 0.2 ;引线比例
   
4.                         dk_min 50 ;折线最小距离
   
5.                         dk_layer "SE_HOLE"
   
6.         );;变量设置
   
7.         (if (not (tblsearch "LAYER" "SE_HOLE"))
   
8.                 (progn
   
9.                         (entmake (list '(0 . "LAYER")
   
10.                                                                 '(100 . "AcDbSymbolTableRecord")
    
11.                                                                 '(100 . "AcDbLayerTableRecord")
    
12.                                        '(70 . 0)
    
13.                                        '(62 . 201)
    
14.                                        '(6 . "Continuous")
    
15.                                        '(2 . "SE_HOLE")))
    
16.                 )
    
17.         )
    
18.         (defun dk::draw_dk(/ dis dx x y pt2 pt3 dk_distance);(hcl_make_rec p1 p2 "0" 1 40)
    
19. ;                (setq dk_distance (* (distance pt1 pt0) (- 0.5 dk_bili))
    
20. ;                                pt2 (point_mid pt0 pt1)
    
21. ;                                pt2 (polar pt2 (- pi (angle pt0 pt1)) dk_distance)
    
22. ;                )
    
23.                 (setq dis (* (min (abs (- (car pt1) (car pt0))) (abs (- (cadr pt1) (cadr pt0)))) dk_bili)
    
24.                                 dis (max dis dk_min)
    
25.                 )
    
26.                 (if (< (car pt0) (car pt1))
    
27.                         (setq dx dis)
    
28.                         (setq dx (- dis))
    
29.                 )
    
30.                 (setq x (+ (car pt0) dx))
    
31. 
    
32.                 (if (< (cadr pt0) (cadr pt1))
    
33.                         (setq dx dis)
    
34.                         (setq dx (- dis))
    
35.                 )
    
36.                 (setq y (- (cadr pt1) dx)
    
37.                                 pt2 (list x y)
    
38.                 )
    
39. 
    
40. 
    
41.                 (entmake (list
    
42.                                         '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 8 dk_layer)
    
43.                                         '(90 . 3) '(43 . 0)
    
44.                                         (cons 10 pt0) (cons 10 pt2) (cons 10 pt1)
    
45.                                         )
    
46.                 )
    
47.                 (if dk_has_rec
    
48.                         (dk::make_rec)
    
49.                 )
    
50.         )
    
51.         (defun dk::make_rec();(hcl_make_rec p1 p2 "0" 1 40)
    
52.                 (entmake (list
    
53.                                         '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 8 dk_layer)
    
54.                                         '(90 . 4) '(70 . 1) '(43 . 0)
    
55.                                         (list 10 (car pt0) (cadr pt0)) (list 10 (car pt0) (cadr pt1))
    
56.                                         (list 10 (car pt1) (cadr pt1)) (list 10 (car pt1) (cadr pt0))
    
57.                         )
    
58.                 )
    
59.         )
    
60.         (defun dk_print_parm( / tip_rec)
    
61.                 (initget 0 "F")
    
62.                 (if dk_has_rec
    
63.                         (setq tip_rec "有轮廓")
    
64.                         (setq tip_rec "无轮廓")
    
65.                 )
    
66.                 (princ (strcat "\n【标注洞口】\n  当前模式：" tip_rec
    
67.                         ))
    
68.         )
    
69.         (defun mydefunction(/ pt0 pt1)
    
70.                 ;;begin mydefunction
    
71.                 (dk_print_parm)
    
72.                 (while (setq pt0 (getpoint "\n  第一点[F切换模式]："))
    
73.                         (cond
    
74.                                 ((= "F" pt0)
    
75.                                         (setq dk_has_rec (not dk_has_rec))
    
76.                                 )
    
77.                                 (t
    
78.                                         (if (setq pt1 (getpoint pt0 "\n  第二点："))
    
79.                                                 (progn
    
80.                                                         (dk::draw_dk)
    
81.                                                 )
    
82.                                         )
    
83.                                 )
    
84.                         )
    
85.                         (dk_print_parm)
    
86.                 )
    
87.         )
    
88.         (setvar 'cmdecho 0)
    
89.         (mydefunction)
    
90.         (setvar 'cmdecho 1)
    
91.         (prin1)
    
92. )

(defun c:dk( / mydefunction dk_bili dk_min dk_layer)<br />         (setq dk_bili 0.2 ;引线比例<br />                         dk_min 50 ;折线最小距离<br />                         dk_layer "SE_HOLE"<br />         );;变量设置<br />         (if (not (tblsearch "LAYER" "SE_HOLE"))<br />                 (progn<br />                         (entmake (list '(0 . "LAYER")<br />                                                                 '(100 . "AcDbSymbolTableRecord")<br />                                                                 '(100 . "AcDbLayerTableRecord")<br />                                        '(70 . 0)<br />                                        '(62 . 201)<br />                                        '(6 . "Continuous")<br />                                        '(2 . "SE_HOLE")))<br />                 )<br />         )<br />         (defun dk::draw_dk(/ dis dx x y pt2 pt3 dk_distance);(hcl_make_rec p1 p2 "0" 1 40)<br /> ;                (setq dk_distance (* (distance pt1 pt0) (- 0.5 dk_bili))<br /> ;                                pt2 (point_mid pt0 pt1)<br /> ;                                pt2 (polar pt2 (- pi (angle pt0 pt1)) dk_distance)<br /> ;                )<br />                 (setq dis (* (min (abs (- (car pt1) (car pt0))) (abs (- (cadr pt1) (cadr pt0)))) dk_bili)<br />                                 dis (max dis dk_min)<br />                 )<br />                 (if (< (car pt0) (car pt1))<br />                         (setq dx dis)<br />                         (setq dx (- dis))<br />                 )<br />                 (setq x (+ (car pt0) dx))<br /> <br />                 (if (< (cadr pt0) (cadr pt1))<br />                         (setq dx dis)<br />                         (setq dx (- dis))<br />                 )<br />                 (setq y (- (cadr pt1) dx)<br />                                 pt2 (list x y)<br />                 )<br /> <br /> <br />                 (entmake (list<br />                                         '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 8 dk_layer)<br />                                         '(90 . 3) '(43 . 0)<br />                                         (cons 10 pt0) (cons 10 pt2) (cons 10 pt1)<br />                                         )<br />                 )<br />                 (if dk_has_rec<br />                         (dk::make_rec)<br />                 )<br />         )<br />         (defun dk::make_rec();(hcl_make_rec p1 p2 "0" 1 40)<br />                 (entmake (list<br />                                         '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 8 dk_layer)<br />                                         '(90 . 4) '(70 . 1) '(43 . 0)<br />                                         (list 10 (car pt0) (cadr pt0)) (list 10 (car pt0) (cadr pt1))<br />                                         (list 10 (car pt1) (cadr pt1)) (list 10 (car pt1) (cadr pt0))<br />                         )<br />                 )<br />         )<br />         (defun dk_print_parm( / tip_rec)<br />                 (initget 0 "F")<br />                 (if dk_has_rec<br />                         (setq tip_rec "有轮廓")<br />                         (setq tip_rec "无轮廓")<br />                 )<br />                 (princ (strcat "\n【标注洞口】\n  当前模式：" tip_rec<br />                         ))<br />         )<br />         (defun mydefunction(/ pt0 pt1)<br />                 ;;begin mydefunction<br />                 (dk_print_parm)<br />                 (while (setq pt0 (getpoint "\n  第一点[F切换模式]："))<br />                         (cond<br />                                 ((= "F" pt0)<br />                                         (setq dk_has_rec (not dk_has_rec))<br />                                 )<br />                                 (t<br />                                         (if (setq pt1 (getpoint pt0 "\n  第二点："))<br />                                                 (progn<br />                                                         (dk::draw_dk)<br />                                                 )<br />                                         )<br />                                 )<br />                         )<br />                         (dk_print_parm)<br />                 )<br />         )<br />         (setvar 'cmdecho 0)<br />         (mydefunction)<br />         (setvar 'cmdecho 1)<br />         (prin1)<br /> )

yefei812678

没有人支持下嘛？

yefei812678

没有人支持下嘛？