[求助]：求助 想在kcdj里调用mj函数

laoxie_1983

各位大虾:
    我有如下程序
    (defun c:kcdj();勘测定界实用程序。
  (setq k1 "d:\\hbxx\\k1.txt")
  (setq a1 (ssget "x" '((0 . "MTEXT") (8 . "地类注记"))))
  (setq shumu (sslength a1));计算图形内地块数目
  (setq j 0)
  (setq fp (open k1 "w"))
  (repeat shumu
    (setq a2 (ssname a1 j))
    (setq k (entget a2))
    (setq pt (cdr (assoc 10 k)))
    ;(setq p1 (list (car p) (cadr p)))
    (setq lr(cdr (assoc 1 k)))
    (setq q (list pt lr))
    (princ q fp)
    (princ "\n" fp)
    (setq j (+ j 1))
    (mj (pt));想在此处调用mj函数怎样才能实现?
   )
    (close fp)
  (princ)
  )



(defun mj(/ pt)
(setvar "cmdecho" 0)
(setq pt (getpoint "\\n 选取点："))
(command "layer" "m" "标注" "c" "white" "" "")
(while pt
(setvar "cecolor" "1")
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (rtos (getvar "area") 2 1))
(redraw en 3)
;(setq aa (/ aa 25))
;(setq b (itoa aa))
(setq aa (strcat  "S=" aa))
;(command "layer" "s"  "底图" "")
(command "text" "j" "mc" pt "" "0"  aa )
))
(entdel en )
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\\n 选取点："))
)

  )

xyz518mm

您的程序是否是要将,
在封闭线段的图形求出面积,
之后再将面积取出放到文件中.
我想您还是将程序所要表达的用途,
写清楚.
或许会比较容易使用些...

laoxie_1983

是想求出封闭线段的面积.然后导入到某个文件中,求封闭线段的面积程序是mj函数.现在想在函数kcdj里调用它.请问该怎么调用?谢谢

litss

1. 如果面积函数是
(defun mj (/ pt)
......
)
则主函数中调用方式为
(mj)

2. 如果面积函数是
(defun mj (pt / )
......
)
则主函数中调用方式为
(mj pt)

其中，1的pt是子函数mj的内部局部变量，在mj函数里获取；2的pt是则是由主函数传递给子函数mj的变量，在主函数中获取。