dim사용시 수평,수직동시에 나올수있는방법 있나요?

너무너무 감사합니다…

실력이 짫아서 아래처럼 밖에 못하겠네여..^^:;;

두 포인트 클릭후 수평먼저 위치 지정 수직위치정을 하시면 됩니다.

(defun c:dvh()
(prompt “n2포인트 클릭후 치수의 위치를 지정해주세요”)
(setvar “cmdecho” 0)
(setq p1 (getpoint “nfirst point:”))
(setq p2 (getpoint p1 “nsecond point:”))

(command “dimlinear” p1 p2 “v” “\”)
(command “dimlinear” p1 p2 “h” “\”)
(setvar “cmdecho” 1)
(princ)
):defun

사실 주왕님이 올려주신것을 보고..갑자기..좋은생각이 번쩍 …엑셀을 포함하여..좋은 아이디어를 얻어 너무 감사하게 생각합니다.