crab3 发表于 2015-7-31 20:29:58

求指正。。谢谢

(defun c:111()
(setvar "cmdecho" 0)
(setvar "blipmode"0)
(setq os (getvar "osmode"))

(setq pa (getpoint "请输入直角方形左下角点: "))
(setq ww (getreal "\n请输入直角方形底边长度: "))
(setq K(getreal "\n请输入: "))

(setq LL (* ww K))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) LL))
(setq pd (polar pdpi ww))
(setvar "osmode" 0)
(command "pline" pa pb pc pd "c")       
(command "line" papc " ")
(command "line" pcpd " ")
(prin1)
)
(prompt "\n << 5TEST1>>自动直角方形绘制")
(prin1)

易云网络 发表于 2015-8-1 15:06:10

画长方形需要这样吗？
REC
选择点
@长，宽

易云网络 发表于 2015-8-1 15:19:56

(defun c:aa111()
(setvar "cmdecho" 0)
(setvar "blipmode"0)
(setq os (getvar "osmode"))

(setq pa (getpoint "请输入直角方形左下角点: "))
(setq ww (getreal "\n请输入直角方形底边长度: "))
(setq K(getreal "\n请输入: "))

(setq LL (* ww K))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) LL))
(setq pd (polar pcpi ww))
(setvar "osmode" 0)
(command "pline" pa pb pc pd "c")      
(command "line" papc "")
(command "line" pbpd "")
(prin1)
)
(prompt "\n << 5TEST1>>自动直角方形绘制")
(prin1)
页: [1]
查看完整版本: 求指正。。谢谢