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

李青松

• (defun c:tt ( /  p1 p2 p3 p4)(princ "\n")
  
•   (while (and(setq p1 (getpoint "\r第一点:"))(setq p2 (getcorner p1 "\r下一点:")))
  
•     (progn
  
•       (setq p3 (list (car p1) (cadr p2)) p4 (list (car p2) (cadr p1)))
  
•       (entmake (list '(0 . "LINE") (cons 10 p1) (cons 62 1) (cons 11 p2) '(8 . "TEST1")))
  
•       (entmake (list '(0 . "LINE") (cons 10 p3) (cons 62 1) (cons 11 p4) '(8 . "TEST1")))
  
•       (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "TEST2") '(100 . "AcDbPolyline") (cons 62 1)(cons 90 4) (cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4) (cons 70 1)))
  
•     )
  
•   )
  
•   (princ)
  
• ) ;;图层名自己改吧
  
  以上是一个画中间带交叉线的矩形的程序，若能修改1下就好了，
  
  

1，程序在运行完程序后，自动提示输入第1点，要是改成在运行完程序后就自动结束命令就好了，也就是不要
多重画带叉的矩形。
2，程序里面颜色的设置改成随层就棒了

ljwsyzf

mark下，正需要呢

my258

正需要，谢谢

阿然

不要重复就把while改成if，要随层就把'(8 . "TEST1")都del就可以了

llsheng_73

颜色的设置改成随层直接把那个(cons 62 1)去掉或者改为(cons 62 256)

李青松

把'(8 . "TEST1")都del 后  运行程序出现这个提示 ：   未知命令“tt”。按 F1 查看帮助。程序运行不了。

q3_2006

2. (defun c:tt (/ p1 p2 p3 p4)
   
3.         (setq p1 (getpoint "\r第一点:"))
   
4.            (setq p2 (getcorner p1 "\r下一点:"))
   
5.            (progn
   
6.       (setq p3 (list (car p1) (cadr p2))
   
7.             p4 (list (car p2) (cadr p1))
   
8.       )
   
9.       (entmake (list '(0 . "LINE") (cons 10 p1)  (cons 11 p2) '
   
10.                      (8 . "TEST1")
    
11.                )
    
12.       )
    
13.       (entmake (list '(0 . "LINE") (cons 10 p3) (cons 11 p4) '
    
14.                      (8 . "TEST1")
    
15.                )
    
16.       )
    
17.       (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "TEST2")
    
18.                      '(100 . "AcDbPolyline")  (cons 90 4)
    
19.                      (cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4)
    
20.                      (cons 70 1)
    
21.                )
    
22.       )
    
23.     )
    
24.   (princ)
    
25. )

(defun c:tt (/ p1 p2 p3 p4)<br />         (setq p1 (getpoint "\r第一点:"))<br />            (setq p2 (getcorner p1 "\r下一点:"))<br />            (progn<br />       (setq p3 (list (car p1) (cadr p2))<br />             p4 (list (car p2) (cadr p1))<br />       )<br />       (entmake (list '(0 . "LINE") (cons 10 p1)  (cons 11 p2) '<br />                      (8 . "TEST1")<br />                )<br />       )<br />       (entmake (list '(0 . "LINE") (cons 10 p3) (cons 11 p4) '<br />                      (8 . "TEST1")<br />                )<br />       )<br />       (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "TEST2")<br />                      '(100 . "AcDbPolyline")  (cons 90 4)<br />                      (cons 10 p1) (cons 10 p3) (cons 10 p2) (cons 10 p4)<br />                      (cons 70 1)<br />                )<br />       )<br />     )<br />   (princ)<br /> )

李青松

颜色的设置改成随层直接把那个(cons 62 1)去掉或者改为(cons 62 256)


去掉或者改都不能运行程序了，提示：未知命令

emk

2. (defun c:tt ( / p1 p2 p3 p4)
   
3.   (setq p1 (getpoint "\n第一点:") p2 (getcorner p1 "\n下一点:"))
   
4.   (setq p3 (list (car p1) (cadr p2)) p4 (list (car p2) (cadr p1)))
   
5.   (entmake (list '(0 . "LINE") (cons 10 p1)(cons 11 p2)))
   
6.   (entmake (list '(0 . "LINE") (cons 10 p3)(cons 11 p4)))
   
7.   (entmake (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")
   
8.    (cons 90 4)(cons 10 p1)(cons 10 p3)(cons 10 p2)(cons 10 p4)(cons 70 1)))
   
9.   (princ)
   
10. )

(defun c:tt ( / p1 p2 p3 p4)<br />   (setq p1 (getpoint "\n第一点:") p2 (getcorner p1 "\n下一点:"))<br />   (setq p3 (list (car p1) (cadr p2)) p4 (list (car p2) (cadr p1)))<br />   (entmake (list '(0 . "LINE") (cons 10 p1)(cons 11 p2)))<br />   (entmake (list '(0 . "LINE") (cons 10 p3)(cons 11 p4)))<br />   (entmake (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")<br />    (cons 90 4)(cons 10 p1)(cons 10 p3)(cons 10 p2)(cons 10 p4)(cons 70 1)))<br />   (princ)<br /> )

李青松

把while改成if可行

影带走流年

LWPOLYLINE，AcDbEntity，AcDbPolyline  ，我是新手这是什么意思啊，求指教

wngxb

emk 发表于 2013-11-6 16:53

交叉线是实线，如何改成虚线？