大家帮忙修改个程序,小变动

cj52000

大家好，工作中修改图档要打叉，现有一个程序可以实现(也是在明径上找的)，第一点和第二点之间可以画叉，就是能不能修改下把矩形删除掉，只画叉就行了，谢谢！

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

lucas_3333

Z版曾经写过

yoyoho

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

xyp1964

2. (defun c:tt ()
   
3.   (setq p1 (getpoint "\n第一点: ")
   
4.         p2 (getcorner p1 "\n对角点: ")
   
5.         p3 (list (car p1) (cadr p2))
   
6.         p4 (list (car p2) (cadr p1))
   
7.   )
   
8.   (command "line" "non" p1 "non" p2 "")
   
9.   (command "line" "non" p3 "non" p4 "")
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (setq p1 (getpoint "\n第一点: ")<br />         p2 (getcorner p1 "\n对角点: ")<br />         p3 (list (car p1) (cadr p2))<br />         p4 (list (car p2) (cadr p1))<br />   )<br />   (command "line" "non" p1 "non" p2 "")<br />   (command "line" "non" p3 "non" p4 "")<br />   (princ)<br /> )

fl202

金牌会员，就问这样的问题吗？

cj52000

fl202 发表于 2015-6-9 08:46
金牌会员，就问这样的问题吗？

很感兴趣，但是没有时间去学啊，见笑了！