毕业设计中LISP程序求救！！！！！

zhuhuifeng

以下的LISP程序原代码是我在杂志上面找到的，但是我在输入AUTOLISP之后，运行不出来，毕业设计答辩的日期很快就要到来，小弟恨事着急
   求救哪位LISP编程高手可以与我联系，方便我求教！！！！
     zhf-2002@163.com
QQ:86132036
   
     谢谢！！！！！！！！！！


;convert angle in degrees to radians
(defun dtr(a)
   (*pi(/a180,0)))
(defun c:SUNSHADE(/pt hg)
(command"limits""0,0""420,297")
(command"zoom""all")
(setvar"cmdecho"0)
  (setq pt (getpoint"\n enter a point:"))
  (setq hg (getreal"\n enter a high:"))
  (setq δ (getangle"\n 徐州地区太阳赤纬角 δ=:"))
  (setq φ (getangle"\n 徐州地区地理纬度 φ=:"))

  (command"layer""m""2""on""2""1""continuous""2""")
  (command"color"2)

  (setq t 4)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a1(polar pt (-as(/pi 2))H))
  (command"line"pt a1"")
  (command"text"a1 40 "8时")

  (setq t 3.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a2(polar pt (-as(/pi 2))H))
  (command"line"pt a2"")

  (setq t 3)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a3(polar pt (-as(/pi 2))H))
  (command"line"pt a3"")
  (command"text"a3 40 "9时")

  (setq t 2.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a4(polar pt (-as(/pi 2))H))
  (command"line"pt a4"")

  (setq t 2)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a5(polar pt (-as(/pi 2))H))
  (command"line"pt a5"")
  (command"text"a5 40 "10时")

  (setq t 1.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a6(polar pt (-as(/pi 2))H))
  (command"line"pt a6"")

  (setq t 1)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a7(polar pt (-as(/pi 2))H))
  (command"line"pt a7"")
  (command"text"a7 40 "11时")

  (setq t 0.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a8(polar pt (-as(/pi 2))H))
  (command"line"pt a8"")

  (setq t 0)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a9(polar pt (-as(/pi 2))H))
  (command"line"pt a9"")
  (command"text"a9 40 "12时")

  (setq t -0.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a10(polar pt (-as(/pi 2))H))
  (command"line"pt a10"")

  (setq t -1)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a11(polar pt (-as(/pi 2))H))
  (command"line"pt a11"")
  (command"text"a11 40 "13时")

  (setq t -1.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a12(polar pt (-as(/pi 2))H))
  (command"line"pt a12"")

  (setq t -2)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a13(polar pt (-as(/pi 2))H))
  (command"line"pt a13"")
  (command"text"a13 40 "14时")

  (setq t -2.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a14(polar pt (-as(/pi 2))H))
  (command"line"pt a14"")

  (setq t -3)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a15(polar pt (-as(/pi 2))H))
  (command"line"pt a15"")
  (command"text"a15 40 "15时")

  (setq t -3.5)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a16(polar pt (-as(/pi 2))H))
  (command"line"pt a16"")

  (setq t -4)
  (setq c (*15t))
  (setq x(+(*(sinφ)(sinδ))
            (*(cosφ)(cosδ)(cos(dtrΩ)))))
  (setq y(sqrt(-1(*x x))))
  (setq H(*hg(/y x))
  )
  (setq z (/(*(sin(dtrΩ))(cos δ))y))
  (setq as (atan(/z(sqrt(-1(*z z)))))
  )
  (setq a17(polar pt (-as(/pi 2))H))
  (command"line"pt a17"")
  (command"text""r" a17 40 "16时")

  (command"line" a1 a2 a3 a4 a5 a6 a7 a8 a9 a10
          a11 a12 a13 a14 a15 a16 a17"")
  (command"zoom""e")
  )

lijiao

本想帮你改改，但里面错误太多，也不知道程序要完成什么样的功能，所以无能为力。

它山之石

现在程序是可以运行了。可能不是你所希望的结果。主要是有个参数没赋值。俺不知是什么就随便赋了个值给它。
;;;此是俺加上的，不知是什么，就随便赋了个值给它。
  (setq Ω φ)
[php]
;;;convert angle in degrees to radians
(defun dtr (a)
  (* pi (/ a 180))
)
(defun c:SUNSHADE (/   pt  hg  φ  δ  φ  Ω  A1  A10 A11 A12 A13 A14
                   A15 A16 A17 A2  A3  A4  A5  A6  A7  A8  A9  AS  C
                   H   TT  X   Y   Z
                  )
  (command "limits" "0,0" "420,297")
  (command "zoom" "all")
  (setvar "cmdecho" 0)
  (setq pt (getpoint "\n enter a point:"))
  (setq hg (getreal "\n enter a high:"))
  (setq δ (getangle "\n 徐州地区太阳赤纬角 δ=:"))
  (setq φ (getangle "\n 徐州地区地理纬度 φ=:"))

;;;(command "layer" "m" "2" "on" "2" "1" "continuous" "2" "")
;;;(command "color" 2)

;;;此是俺加上的，不知是什么，就随便赋了个值给它。
  (setq Ω φ)

  (setq tt 4)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a1 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a1 "")
  (command "text" a1 40 "" "8时")

  (setq tt 3.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a2 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a2 "")

  (setq tt 3)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a3 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a3 "")
  (command "text" a3 40 "" "9时")

  (setq tt 2.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a4 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a4 "")

  (setq tt 2)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a5 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a5 "")
  (command "text" a5 40 "" "10时")

  (setq tt 1.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a6 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a6 "")

  (setq tt 1)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a7 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a7 "")
  (command "text" a7 40 "" "11时")

  (setq tt 0.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a8 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a8 "")

  (setq tt 0)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a9 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a9 "")
  (command "text" a9 40 "" "12时")

  (setq tt -0.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a10 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a10 "")

  (setq tt -1)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a11 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a11 "")
  (command "text" a11 40 "" "13时")

  (setq tt -1.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a12 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a12 "")

  (setq tt -2)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a13 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a13 "")
  (command "text" a13 40 "" "14时")

  (setq tt -2.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a14 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a14 "")

  (setq tt -3)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a15 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a15 "")
  (command "text" a15 40 "" "15时")

  (setq tt -3.5)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a16 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a16 "")

  (setq tt -4)
  (setq c (* 15 tt))
  (setq        x (+ (* (sin φ) (sin δ))
             (* (cos φ) (cos δ) (cos (dtr Ω)))
          )
  )
  (setq y (sqrt (- 1 (* x x))))
  (setq        H (* hg (/ y x))
  )
  (setq z (/ (* (sin (dtr Ω)) (cos δ)) y))
  (setq        as (atan (/ z (sqrt (- 1 (* z z)))))
  )
  (setq a17 (polar pt (- as (/ pi 2)) H))
  (command "line" pt a17 "")
  (command "text" "r" a17 40 "" "16时")

  (command "line" a1 a2        a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
           a17 "")
  (command "zoom" "e")
)
[/php]

zhuhuifeng

'它山之石"不知道怎么联系你啊?QQ号码?或者邮箱?
我这个很急了?  我叫朱慧峰
zhf-2002@163.com
QQ:86132036

xyp1964

[php]日照计算的程序！确实少参数。
如果是特定的徐州地区就不需要这两句：
(setq δ (getangle "\n 徐州地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 徐州地区地理纬度 φ=:"))

最好列出几个主要城市供选择，程序自动输入太阳赤纬角、地理纬度等。

偶觉得关键缺少时间变量。
以下参数不能少：
;h：太阳高度角；
;A：太阳方位角，以正南为0，西向取正值，东向取负值；
;∮ ：地理纬度；北京，40度；徐州，……
;t：时角，正午为0，每小时的时角为15度，下午取正值；
;δ：赤纬，冬至为－23.45°，夏至为+ 23.45°，二分为0.0°。
[/php]

zhuhuifeng

最初由 xyp1964 发布
[B]日照计算的程序！确实少参数。
如果是特定的徐州地区就不需要这两句：
(setq δ (getangle "\n 徐州地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 徐州地区地理纬度 φ=:"))

最好列出几个主要城市供选择，程... [/B]

setq δ (getangle "\n 徐州地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 徐州地区地理纬度 φ=:"))
应该改成
setq δ (getangle "\n 输入地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 输入地区地理纬度 φ=:"))

这样比较好一点

我关键是想把这个做成一个在CAD里面有个对话框
我们可以一目了然的输入纬度等数据以后旧可以看出
其他所需要的内容
有点象VB

xyp1964

最初由 zhuhuifeng 发布
[B][QUOTE]最初由 xyp1964 发布
[B]日照计算的程序！确实少参数。
如果是特定的徐州地区就不需要这两句：
(setq δ (getangle "\n 徐州地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 徐州地区地理纬度 φ=... [/B]

程序需要的是人性化，对下面两个提示有几个人能回答，呵呵……
[php](setq δ (getangle "\n 输入地区太阳赤纬角 δ=:"))
(setq φ (getangle "\n 输入地区地理纬度 φ=:"))
[/php]

zhuhuifeng

我编辑的LISP主要是想达到这样的效果.但是我对DCL就比较是生疏了
请大家指教

它山之石

　　楼主俺没明白你到底是要做什么？你的毕业答辩内容是这个程序吗？可是似乎你并不太懂LISP程序设计。俺帮你改的程序在CAD中确实可以运行了，只是俺不知道你所期望的结果是什么。也许XYP1964斑主是搞建筑的，他会帮你。
　　你可以通过帖子内容下面的耳语与俺联系。与俺联系。

xyp1964

如果这就是“毕业答辩内容”，偶早就大学毕业了，……
还是先说说要达到的目的。

zhuhuifeng

　　首先感谢两位尽心帮助，其实我对ＬＩＳＰ只是略知一二而已，其实我在选择毕业设计时候并不是ＣＡＤ的二次开发，只是在分配指导老师的时候把我挤到了这方面！我也感到很是郁闷！！

　　我只是想字在ＣＡＤ里面用ＬＩＳＰ语言编辑一个可以输入不同的＂地区城市纬度＂的对话框，然后通过以上的ＬＩＳＰ函数可用＂ＳＵＮＳＨＡＤＥ＂命令在ＣＡＤ里面根据以上输入的＂地区城市纬度＂自动绘制一个不同时间段的＂日照耪影图＂

狂刀

不赞成临时抱佛脚
自己以前没有努力，就应当直面现在的处境

zhuhuifeng

用ＬＩＳＰ函数绘制的图如下

xyp1964

应早点发这个图。
根本用不了1楼这么长的程序，看起来太累。
不是＂日照耪影图＂，而是“竿影日照图”，详见《建筑设计资料集》1之67～81页。

lijiao

要求有界面的话，不如用VBA来做，DCL做对话框，一个是不直观，第二是调试比较困难。