中间带交叉线的矩形的程序，若能修改1下就好了

waterchen

这是生成虚线的：

1. (defun c:tt (/ p1 p2 p3 p4)
   
2.   (setq p1 (getpoint "\rFirst point:"))
   
3.   (setq p2 (getcorner p1 "\rSecond point:"))
   
4.   (if (and (= (type p1) 'LIST) (= (type p2) 'LIST))
   
5.     (progn
   
6.       (setq p3 (list (car p1) (cadr p2))
   
7.       p4 (list (car p2) (cadr p1))
   
8.       )
   
9.       (if (null (tblsearch "LTYPE" "HIDDEN"))
   
10.           (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "HIDDEN" "acad.lin")
    
11.   )
    
12.       (entmake (list '(0 . "LINE")
    
13.          '(100 . "AcDbEntity")
    
14.          '(100 . "AcDbline")
    
15.          '(6 . "HIDDEN")
    
16.          '(8 . "TEST2")
    
17.          (cons 10 p1)
    
18.          (cons 11 p2)
    
19.          )
    
20.          )
    
21.       (entmake (list '(0 . "LINE")
    
22.          '(100 . "AcDbEntity")
    
23.          '(100 . "AcDbline")
    
24.          '(6 . "HIDDEN")
    
25.          '(8 . "TEST2")
    
26.          (cons 10 p3)
    
27.          (cons 11 p4)
    
28.          )
    
29.          )
    
30.       (entmake (list '(0 . "LWPOLYLINE")
    
31.          '(100 . "AcDbEntity")
    
32.          '(8 . "TEST2")
    
33.          '(100 . "AcDbPolyline")
    
34.          (cons 90 4)
    
35.          (cons 10 p1)
    
36.          (cons 10 p3)
    
37.          (cons 10 p2)
    
38.          (cons 10 p4)
    
39.          (cons 70 1)
    
40.          )
    
41.          )
    
42.       )
    
43.     (princ "\Input Invalid point.")
    
44.     )
    
45.   (princ)
    
46.   )
    
47. 
    

(defun c:tt (/ p1 p2 p3 p4)<br />   (setq p1 (getpoint "\rFirst point:"))<br />   (setq p2 (getcorner p1 "\rSecond point:"))<br />   (if (and (= (type p1) 'LIST) (= (type p2) 'LIST))<br />     (progn<br />       (setq p3 (list (car p1) (cadr p2))<br />       p4 (list (car p2) (cadr p1))<br />       )<br />       (if (null (tblsearch "LTYPE" "HIDDEN"))<br />           (vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) "HIDDEN" "acad.lin")<br />   )<br />       (entmake (list '(0 . "LINE")<br />          '(100 . "AcDbEntity")<br />          '(100 . "AcDbline")<br />          '(6 . "HIDDEN")<br />          '(8 . "TEST2")<br />          (cons 10 p1)<br />          (cons 11 p2)<br />          )<br />          )<br />       (entmake (list '(0 . "LINE")<br />          '(100 . "AcDbEntity")<br />          '(100 . "AcDbline")<br />          '(6 . "HIDDEN")<br />          '(8 . "TEST2")<br />          (cons 10 p3)<br />          (cons 11 p4)<br />          )<br />          )<br />       (entmake (list '(0 . "LWPOLYLINE")<br />          '(100 . "AcDbEntity")<br />          '(8 . "TEST2")<br />          '(100 . "AcDbPolyline")<br />          (cons 90 4)<br />          (cons 10 p1)<br />          (cons 10 p3)<br />          (cons 10 p2)<br />          (cons 10 p4)<br />          (cons 70 1)<br />          )<br />          )<br />       )<br />     (princ "\Input Invalid point.")<br />     )<br />   (princ)<br />   )<br /> <br />

my258

正需要，谢谢

ljwsyzf

mark下，正需要呢