cj52000 发表于 2015-6-8 16:54:03

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

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

(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 发表于 2015-6-8 16:56:03

Z版曾经写过

yoyoho 发表于 2015-6-8 18:18:40

(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 发表于 2015-6-8 21:58:06

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

fl202 发表于 2015-6-9 08:46:41

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

cj52000 发表于 2015-6-10 12:24:37

fl202 发表于 2015-6-9 08:46 static/image/common/back.gif
金牌会员，就问这样的问题吗？

很感兴趣，但是没有时间去学啊，见笑了！
页: [1]
查看完整版本: 大家帮忙修改个程序,小变动