lxl13596 发表于 2009-3-3 21:59:00

求助：两点确定一个叉字形

<p></p><p></p>

lxl13596 发表于 2009-3-3 22:00:00

<p>大伙帮忙改下，谢谢!</p>

ZZXXQQ 发表于 2009-3-4 12:32:00


(defun c:q (/ p1 p2)
(setq p1 (getpoint "\n指定第一个角点:"))
(setq p2 (getcorner p1 "\n指定另一个角点:"))
(command "_line" p1 p2 "" "_line" (list (car p1) (cadr p2)) (list (car p2) (cadr p1)) "")
)

lxl13596 发表于 2009-3-4 17:07:00

多谢大家的支持!

xyp1964 发表于 2009-3-9 23:21:00

(defun c:tt (/ p1 p2)<br/>&nbsp; (while (and (setq p1 (getpoint "\n指定第一个角点:"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p2 (getpoint p1 "\n指定另一个角点:"))<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq p3 (list (car p1) (cadr p2))<br/>&nbsp;&nbsp; p4 (list (car p2) (cadr p1))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (command "_line" p1 p2 "" "_line" p3 p4 "")<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)

lengliqun 发表于 2009-3-19 08:26:00

3、5楼程序CAD2004测试可用，谢谢。
页: [1]
查看完整版本: 求助：两点确定一个叉字形