[求助]自定义涵数

zhongys

以下程式本身没有问题，但想在其他程式中套用这一程式，这个程式插入点为"PO"，在其它程式它的插入点可为"P1，p2，p3........."，我不想重新定义点po,想把它变成自定义函数,在其它程式直用 如(ZKO P1),(ZKO P2),(ZKO P3).........就可以执行，不知怎样处理，请各位指教.

;;;***********************************
;;;***********************************
(defun ZKO(/ bzys  th sc tx #cen ent ss pl pr pt pb)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setvar "clayer" "顶出板层") 
;(setq po (getpoint "\n 指定指入点"))
(setq bzys "ZKO")
(if (= (tblsearch "block" bzys) nil)
(progn
  (setq th (getvar "dimtxt") sc (getvar "dimscale") tx (* th sc))
  (setq #cen 17.5)
  (command "circle" po #cen)
  (setq ent (entlast) ss (ssadd));将若干个元素增加到集ss
  (ssadd ent ss)
  (setvar "clayer" "中心线层")
  (setq pl (polar po (/ pi 2) (+ #cen 0.5)))
  (setq pr (polar po (* pi 1.5) (+ #cen 0.5)))
  (command "line" pl pr "")
  (setq pl (polar po pi (+ #cen 0.5)))
  (setq pr (polar po 0 (+ #cen 0.5)))
  (command "line" pl pr "")
  (command "text" po tx 0 "K.O")
  (command "change" "l" "" "p" "Color" 4 "")
  (while (setq ent (entnext ent)) (ssadd ent ss));集ss选择结束
  (command "-block" bzys po ss "")
  (entmake (list '(0 . "INSERT")
   '(8 . "顶出板层")
   (cons 2 bzys)
   (cons 10 po)
   )
  )
));;;end if
  (if (/= (tblsearch "block" bzys) nil)
  (entmake (list '(0 . "INSERT")
   '(8 . "顶出板层")
   (cons 2 bzys)
   (cons 10 po)
   )
  )
)

(princ)
)

ZZXXQQ

看看是不是楼主要的：

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

zhongys

(defun ZKO(po / bzys  th sc tx #cen ent ss pl pr pt pb)

可以了，为什么po要在"/"之前呢，请上楼详解一下

ZZXXQQ

"/"之前的是自变量，函数调用时必须给值。之后的是内部变量，程序退出时清空释放内存，内部变量的第二个作用是防止程序间的干涉。

zhongys

谢谢