Question

lisp 如何取矩形的长和宽数据?

即取出矩形的长边和高的数据来在指定位置画一条等长的线谢谢

Answer 1

(defun C:TE ( / LL)
(SETVAR "CMDECHO" 0)
(command "undo" "Be")
(setq ll (vla-get-Length (vlax-ename->vla-object (CAR (ENTSEL)))));;;;;;;;;;;;;;;;得到所选图元的长度
(vl-cmdf "line" (getpoint "\n指定位置画一条等长的线的基点:" ) (strcat "@" (rtos (/ ll 2.0)) ",0") "")
(command "undo" "e")
(COMMAND "REGEN")
(princ)
)
(PROMPT "****即取出矩形的长边和高的数据来在指定位置画一条等长的线*******")
(PRIN1)
;;;;;;此程序简陋,没有检查对象是否是矩形的函数,没有取出长边和高的数据.

追问

结果不对，不是长边数据 谢谢