为什么不能用progn同时调整用两个子程序

alwtyp

各位前辈,我用PROGN同时调用两个子程序,总是提示"命令输入时发送的类型无效"?
(defun c:mmx()
  (setq ab "a4")
(progn
    (ptmake)
    (plm))
  )

(Defun Ptmake()
  (Setq Pfpt1 (getpoint "1:")
        Pfpt2 (getpoint "2:")
        Pfpt3 (getpoint "3:")
        Pfpt4 (getpoint "4:")
        Pfpt5 (getpoint "5:"))
)

(defun plm(/ Pfpt1 Pfpt2 Pfpt3 Pfpt4 Pfpt5 Pfpt11 Pfpt12)
  (VL-CMDF ".-Layer" "Thaw" AB "Set" AB "")
  (VL-CMDF  ".Pline" Pfpt1 Pfpt2 Pfpt3 Pfpt4 Pfpt5 Pfpt1 "C")
  )

alwtyp

可是如果把程序改成以下,就可以正常运用.请问各位前辈这是什么道理 ?
(defun c:mmx()
  (setq ab "a4")
  (ptmake)
  (VL-CMDF ".-Layer" "Thaw" AB "Set" AB "")
  (VL-CMDF  ".Pline" Pfpt1 Pfpt2 Pfpt3 Pfpt4 Pfpt5 Pfpt1 "C")
  )

(Defun Ptmake()
  (Setq Pfpt1 (getpoint "1:")
        Pfpt2 (getpoint "2:")
        Pfpt3 (getpoint "3:")
        Pfpt4 (getpoint "4:")
        Pfpt5 (getpoint "5:"))
)

alwtyp

yjr111  plm调用时Pfpt1 Pfpt2 Pfpt3 Pfpt4 Pfpt5 已经为nil，当然无效
可是这时再执行 (VL-CMDF  ".Pline" Pfpt1 Pfpt2 Pfpt3 Pfpt4 Pfpt5 Pfpt1 "C"),一样是可以执行的,在监视中也能查看到各个pfpt点的坐标,这又是怎么回事呢?

namezg

你把plm的点参数删除就好了.因为plm中点参数为局部变量.局部变星不受全局变量的影响.而局部变量你未赋值.所以出现问题

alwtyp

namezg 发表于 2012-11-13 07:21
你把plm的点参数删除就好了.因为plm中点参数为局部变量.局部变星不受全局变量的影响.而局部变量你未赋值.所 ...

可是我用PROGN先调用PTMAKE的目的，就是先给PLM的变量赋值

yjr111

(defun c:mmx( / Pfpt1   Pfpt2   Pfpt3   Pfpt4   Pfpt5 )
    (setq ab "a4")
    (ptmake)
    (plm Pfpt1  Pfpt2  Pfpt3  Pfpt4  Pfpt5 )  )

(Defun Ptmake()
  (Setq Pfpt1 (getpoint "1:")
        Pfpt2 (getpoint "2:")
        Pfpt3 (getpoint "3:")
        Pfpt4 (getpoint "4:")
        Pfpt5 (getpoint "5:"))
)

(defun plm(p1 p2 p3 p4 p5)
  (VL-CMDF ".-Layer" "Thaw" AB "Set" AB "")
  (VL-CMDF  ".Pline" p1 p2 p3 p4 p5 "C")
  )

namezg

去学习学习全局变量和局部变量吧.你ptmake里面用的是全局变量.而plm里的变量是局部变量.故ptmake里赋值对plm里不起作用.