[已解决]请帮忙看看我这段小程序错误在哪里
本帖最后由 raimo 于 2011-7-8 07:22 编辑我自己想写一段小程序,但目前给卡在这里了..请各位高手指点一下错在哪里了?
这段程序怎么弄都不能画出线来..我自己找不出了问题所在
主要就是想在获取两个对角点的情况下,画出其他需要的线来..
目前测试的是画出矩形来..
(defun c:cf (/)
(setq pt1 (getpoint "\n指定第一角点:"))
(setq pt3 (getcorner pt1 "\n指定第二角点:"))
(setq
x1 (car pt1)
y1 (cadr pt1)
x2 (car pt3)
y2 (cadr pt3)
pt2 (list x2 y1)
pt4 (list x1 y2)
)
(setvar blipmode 0)
(setvar osmode 0)
(setvar cmdecho 0)
(COMMAND PLINE pt1 pt2 pt3 pt4 c)
)
(COMMAND PLINE pt1 pt2 pt3 pt4 c)
->
(COMMAND "_.PLINE" pt1 pt2 pt3 pt4 "_c")
(defun c:cf (/)
(setq pt1 (getpoint "\n指定第一角点:"))
(setq pt3 (getcorner pt1 "\n指定第二角点:"))
(setq
x1 (car pt1)
y1 (cadr pt1)
x2 (car pt3)
y2 (cadr pt3)
pt2 (list x2 y1)
pt4 (list x1 y2)
)
(setvar "blipmode" 0)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(COMMAND "PLINE" pt1 pt2 pt3 pt4 "c")
(princ)
) 本帖最后由 raimo 于 2011-7-7 22:11 编辑
回复 ljpnb 的帖子
唉,反复改来改去都是问题...经过高手这么一指就搞定啦 多谢多谢
页:
[1]