[求助]画内框
本程序产生A1图框<br/>(defun c:TKA1()<br/>(princ "请选择一个点作为图框的左下角:")<br/><br/>(setq aa (getpoint) ) <br/><br/>(car aa)<br/>(setq bb (car aa))<br/>(setq cc (cadr aa))<br/><br/>(setq dd (list bb cc)) <br/>(setq ee (list (+ bb 841) cc)) <br/>(setq ff (list (+ bb 841) (+ cc 597))) <br/>(setq gg (list bb (+ cc 597))) <br/><br/>(setq ddd (list (+ bb 25) (+ cc 10))) <br/>(setq eee (list (+ bb 831) (+ cc 10))) <br/>(setq fff (list (+ bb 831) (+ cc 587))) <br/>(setq ggg (list (+ bb 25) (+ cc 587))) <br/><br/><br/>(progn<br/>(command "pline" dd ee "c") <br/>(command "pline" ee ff "c")<br/>(command "pline" ff gg "c")<br/>(command "pline" gg dd "c") <br/><br/>(getpoint ddd )<br/>(progn <br/>(command "pline" ddd eee "c") <br/>(command "pline" eee fff "c") <br/>(command "pline" fff ggg "c") <br/>(command "pline" ggg ddd "c") <br/>) <br/><br/>)<br/><br/>)<br/><br/>这个程序只能画出外框，却画不出内框，应该在 (getpoint ddd )这一句中，不知怎么改？就是把光标定向内框的左下角 function XML() {} <p>(defun c:TKA1()<br/>(setvar "osmode" 0)</p><p>(setq aa (getpoint "请选择一个点作为图框的左下角:")) </p><p>(command "pline" aa (setq aa (polar aa 0 841)) <br/> (setq aa (polar aa (/ pi 2.0) 597))<br/> (setq aa (polar aa pi 841))<br/> (setq aa (polar aa (/ pi -2.0) 597)) "")</p><p>(command "pline" (setq aa (polar (polar aa 0 25) 90 10)) <br/> (setq aa (polar aa 0 807))<br/> (setq aa (polar aa (/ pi 2.0) 577))<br/> (setq aa (polar aa pi 807)) "c")</p><p><br/>)</p> function XML() {
} (defun c:A1TK()
(setq p1 (getpoint "\n请选择图框的左下角个点:")
p2 (mapcar '+ p1 '(841 597))
p3 (mapcar '+ p1 '(2510))
p4 (mapcar '+ p1 '(831 587))
)
(command "_rectang" p1 p2)
(command "_rectang" p3 p4)
(princ)
)
页:
[1]