yang686526

求助 lisp 理解问题
www.dimcax.com
求助 lisp 理解问题
;~~~~~~~~~~~~~~~~~~~~~~~~~~~[ test.lsp ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(defun c:test ()
(setvar "cmdecho" 0)
(setq clay0 (getvar "clayer"))
(command "vslide" "test.sld")

(setq vsizev (getvar "viewsize")
vcenxy (getvar "viewctr")
vcenx (car vcenxy)
vceny (cadr vcenxy) type1 nil)
(setq vsizeh (* (/ 1000 725) vsizev)
vsizevh (/ vsizev 2.0)
vsizehh (/ vsizeh 2.0)
vsizexs (- vcenx vsizehh)
vsizeys (- vceny vsizevh)
vsizexe (+ vcenx vsizehh)
vsizeye (+ vceny vsizevh))
(graphscr)
(setq psel (getpoint "\n select a region! : "))

其中的 (* (/ 1000 725) 1000和725怎么确定？

你程序中的(/ 1000 725)是错的.你这个是1 看来应是(/ 1000 725.0) 整数除整数得整数,整数除实数得实数,
你问1000 725是如何来的,那要看你程序是是啥.
gbg