请指点一下 哪错了

okldp

多谢！请指点一下 哪错了 怎么画不直呀 如图： (defun c:hl ()
(setq zh1 (ssadd))
(while (= nil num)
(setq num (getreal "\n num:"))
)
(setq zh (getpoint (strcat "\n<"(rtos num 2 3) ">point1:")))
(setq zh2 (getpoint zh "\npoint2:"))
(setq zh3 (sqrt (+ (expt (- (car zh) (car zh2)) 2.0) (expt (- (cadr zh) (cadr zh2)) 2.0))))
(setq last (entlast))
(command "line" zh (list (+ (car zh) zh3) (cadr zh)) "" "")
(setq zh5 (cdr (assoc 11 (entget (entlast)))))
(command "line" zh (list (car zh) (+ (cadr zh) num)) "" "")
(setq zh6 (cdr (assoc 11 (entget (entlast)))))
(command "line" zh5 (list (car zh5) (+ (cadr zh5) num)) "" "")
(setq zh7 (cdr (assoc 11 (entget (entlast)))))
(command "line" zh6 zh7 "")
(while (setq last (entnext last))
(ssadd last zh1)
)

)

meflying

你真的能用你的程序画出你上面的图???

雅明

meflying发表于2004-4-13 19:08:00你真的能用你的程序画出你上面的图???

你为什么不直接说他的程序最大问题在哪呢？ 楼主先把 LAST 改成另外的变量名再说！

okldp

meflying帮忙。多谢！ 我得初衷是点两点（如图红色叉）就画出一个长方形，可有时就画成箭头所示得图形了（画斜了），请给指点一下

meflying

点两点?用rectang命令就可以了

okldp

帮帮忙 多谢！ 我想把圈住的斜线画直且同长。用上代码点两点后有时能画直，有时画不直（对同一条线来说） 怎么回事， [glow=255,red,2]晕了nn次[/glow]

meflying

你先给一个能画出你说的错误的图的程序,,,因为楼顶这个程序我并不能画出你说的图...

okldp

meflying :谢你！ 就是上面那程序，圈的那些线是先乱画出的。右面的矩形是画直的，但箭头指的是画不直的，在num处输的数值是高度。点的两点是长度。就这些了

meflying

你的程序是不正确的,注意3楼说的,看回帖时要注意看全一点...


你将捕捉点去掉试试先

okldp

多谢！我试试看吧。