[求助]画内框

maozhumao

本程序产生A1图框
(defun c:TKA1()
(princ "请选择一个点作为图框的左下角:")

(setq aa (getpoint) )

(car aa)
(setq bb (car aa))
(setq cc (cadr aa))

(setq dd (list bb cc))
(setq ee (list (+ bb 841) cc))
(setq ff (list (+ bb 841) (+ cc 597)))
(setq gg (list bb (+ cc 597)))

(setq ddd (list (+ bb 25) (+ cc 10)))
(setq eee (list (+ bb 831) (+ cc 10)))
(setq fff (list (+ bb 831) (+ cc 587)))
(setq ggg (list (+ bb 25) (+ cc 587)))


(progn
(command "pline" dd ee "c")
(command "pline" ee ff "c")
(command "pline" ff gg "c")
(command "pline" gg dd "c")

(getpoint ddd )
(progn
(command "pline" ddd eee "c")
(command "pline" eee fff "c")
(command "pline" fff ggg "c")
(command "pline" ggg ddd "c")
)

)

)

这个程序只能画出外框，却画不出内框，应该在 (getpoint ddd )这一句中，不知怎么改？就是把光标定向内框的左下角

maozhumao

function XML() {
    [native code]
}

yxp

(defun c:TKA1()
(setvar "osmode" 0)

(setq aa (getpoint "请选择一个点作为图框的左下角:"))

(command "pline" aa (setq aa (polar aa 0 841))
                    (setq aa (polar aa (/ pi 2.0) 597))
                    (setq aa (polar aa pi 841))
                    (setq aa (polar aa (/ pi -2.0) 597)) "")

(command "pline" (setq aa (polar (polar aa 0 25) 90 10))
                 (setq aa (polar aa 0 807))
                 (setq aa (polar aa (/ pi 2.0) 577))
                 (setq aa (polar aa pi 807)) "c")

)

maozhumao

function XML() {
    [native code]
}

yshf

2. (defun c:A1TK()
3.     (setq p1 (getpoint "\n请选择图框的左下角个点:")
4.    p2 (mapcar '+ p1 '(841 597))
5.    p3 (mapcar '+ p1 '(25  10))
6.    p4 (mapcar '+ p1 '(831 587))
7.     )
8.     (command "_rectang" p1 p2)
9.     (command "_rectang" p3 p4)
10.     (princ)
11. )

(defun c:A1TK()     (setq p1 (getpoint "\n请选择图框的左下角个点:")    p2 (mapcar '+ p1 '(841 597))    p3 (mapcar '+ p1 '(25  10))    p4 (mapcar '+ p1 '(831 587))     )     (command "_rectang" p1 p2)     (command "_rectang" p3 p4)     (princ) )