图框生成程序移植到R2000时,图框内框与外框重叠,为何如此?请高手指点

xwm

我将原在R12下编制的图框生成程序移植到R14获得成功，但移植到R2000时，产生奇怪的现象，生成的图框内框与外框重叠，查询内、外框4点的变量却又不相等，所以从理论上说不应重叠。那位大虾能指点一下迷津。

goldenshin

osmode

xwm

windows平台

jxncxu

图框生成程序移植到R2000时,图框内框与外框重迭,为何如此?请高手指点
我将原在R12下编制的图框生成程序移植到R14获得成功，但移植到R2000时，产生奇怪的现象，生成的图框内框与外框重迭，查询内、外框4点的变量却又不相等，所以从理论上说不应重迭。那位大虾能指点一下迷津。 源代码：(defun dwgboxset()
(dwgblset)
(pointset)
(lineset)
)

(defun dwgblset()
(if bbx
(if (/= bbx 0.0)
(progn
(setq bbl bbx)
(setq bbx 0.0)
)
)
)
(setq pp (mapcar (quote +) basept (mapcar (quote *) pp (list bbl bbl))))
) (defun pointset()
(command "limits" basept pp)
(command "zoom" "a")
) (defun drawbz (pt / aa pp1 pp2 pp3 pp4)
(setq aa (* 0.020000 (getvar "VIEWSIZE")))
(setq pp1 (mapcar (quote +) pt (list aa aa)))
(setq pp2 (mapcar (quote -) pt (list aa aa)))
(setq pp3 (mapcar (quote +) pt (list aa (- aa))))
(setq pp4 (mapcar (quote -) pt (list aa (- aa))))
(grdraw pp1 pp2 -1)
(grdraw pp3 pp4 -1)
) (defun lineset ()
(command "layer" "m" "tk" "c" "cyan" "" "")
(command "linetype" "s" "bylayer" "")
(command "color" "bylayer") (drabox basept pp 0)
(if (= box "1")
(progn
(setq pt3 (mapcar (quote +) basept (list (* 25 bbl) (* 10 bbl))))
(setq pt4 (mapcar (quote -) pp (list (* 10 bbl) (* 10 bbl))))
)
(progn
(setq pt3 (mapcar (quote +) basept (list (* 25 bbl) (* 5 bbl))))
(setq pt4 (mapcar (quote -) pp (list (* 5 bbl) (* 5 bbl))))
)
)
(drabox pt3 pt4 (* 0.700000 bbl))
(setq pt5 (list (car pt4) (last pt3)))
(setq pt6 (list (car pt3) (last pt4)))
(if (= box "1")
(progn
(command "insert" "tb" pt5 bbl bbl 0)
(command "insert" "hq" pt6 bbl bbl 0)
)
(command "insert" "tb1" pt5 bbl bbl 0)
)
(command "layer" "s" "0" "")
(princ)
(quote nil)
) (defun drabox (p1 p2 wh / p3 p4)
(setq p3 (list (car p2) (cadr p1)))
(setq p4 (list (car p1) (cadr p2)))
(command "pline" p1 "w" wh wh p3 p2 p4 "c")
) (defun c:dwgbox (/ basept basept1 pp nx ny bbl bbx box fd fdd)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq fd T fdd nil)

(setq dcl_id (load_dialog "dwgbox.dcl"))
(new_dialog "dwgbox" dcl_id)
(if (not dcl_id) (exit))
(action_tile "a0" "(setq pp '(1189 841))")
(action_tile "a1" "(setq pp '(841 594))")
(action_tile "a2" "(setq pp '(594 420))")
(action_tile "a3" "(setq pp '(420 297))")
(action_tile "a4" "(setq pp '(210 297))")
(action_tile "tw" "(setq nx (atof (get_tile \"tw\")))")
(action_tile "th" "(setq ny (atof (get_tile \"th\")))")
(action_tile "bl1" "(setq bbl 200)")
(action_tile "bl2" "(setq bbl 100)")
(action_tile "bl3" "(setq bbl 50)")
(action_tile "bl4" "(setq bbl 20)")
(action_tile "bl5" "(setq bbl 10)")
(action_tile "bl6" "(setq bbl 1)")
(action_tile "blx" "(setq bbx (atof (get_tile \"blx\")))")
(action_tile "tb1" "(setq box (get_tile \"tb1\"))")
(action_tile "cancel" "(setq fd nil)")
(action_tile "accept" "(done_dialog)") (start_dialog)
(unload_dialog dcl_id)
(if (and nx ny)
(if (and (/= nx 0.0) (/= ny 0.0))
(progn
(setq pp (list nx ny))
(setq nx nil ny nil)
)
)
)
(if (and pp (and (null nx) (null ny))) (setq fdd T))
(if (and (and pp fd) (or bbx bbl) fdd)
(progn
(initget 8)
(setq basept (mapcar (quote +) (getvar "LIMMIN") (quote (0.000000 0.000000))))
(setq basept1 (getpoint "\n请拾取图框左下角点位置:"))
(if (NULL basept1)
(drawbz basept)
(progn
(setq basept basept1)
(drawbz basept)
)
)
(dwgboxset)
)
(if (not fd) (princ "\n*Cancel*\n") (princ "\n参数选择错误!"))
)
(princ)
)

jxncxu

已经解决了.