[求助]：如何在lisp中定义的函数传入整体变量,不知传入参数的格式如何规定,寻求帮助

heluyuan

如何向lisp中定义的函数传入整体变量
如下所示:
(defun C:函式名(引數 / 變數) ........)
在调用该函式名时,参数格式如何写?
我写的函数带一个参数可用,带两个参数就不行了,不知参数
中间用什么符号间隔~~~

Underway

------  函式名     (引数1   引数2  /  变量1  变量2)
    (defun  MAssoc              (Key      alist      /      tmp         pts)
       (reverse
         (progn
           (while (setq tmp (assoc key aList))
             (setq aList (cdr (member tmp aList))
                  pts (cons (cdr tmp) pts)
           ) )
           pts
         ) ;_ closes progn
       ) ;_ closes reverse
    ) ;_ closes defun MAssoc

heluyuan

多谢楼上的指点,但是调用该函数时是不是这样
(MAssoc "Key alist")
如果有多个整体参数,是不是中间加空格就行了?
(MAssoc "Key alist" "Key alist_1")

hyx_lyn

在调用自定义函数时要按照定义函数时所设定的参数来书写，不可以多也不可以少，否则会出错

如果想在调用时多加参数，那需要在定义函数把所有用到的参数都定义了才可以

Underway

一些使用例子


(massoc 10 (entget (car data)))))

(defun getPagesetups ()
   (massoc 3 (dictsearch (namedobjdict) "Acad_PlotSettings"))
)

(defun GetGroupMembers (ename / names dct ent grouplst lst)
  (and
    (setq names (GetGroupNames ename))
    (setq dct (dictsearch (namedobjdict) "acad_group"))
    (foreach x names
      (setq ent (cdadr (member (cons 3 x) dct)))
      (setq grouplst (massoc 340 (entget ent)))
      (foreach y grouplst
        (if (not (member y lst))
          (setq lst (cons y lst))
        )
      )
    )
  )
  lst
)

heluyuan

我定义的函数如下
(defun dxtline (lon lint/ ln lno lltn llint)
  (setq ln (strcase lon))        ;;将传入的参数lon转变为大写，赋予ln
  (setq llint (atof(lint)))
  (if (>= (getvar "ltscale") 8)               
    (setq lltn "dxtline.lin" lno ln)        ;;(strcat ln "X"))        ;;strcat将ln和X组成新串并返回串于ln
    (setq lltn "dxtline.lin" lno ln)        ;;
  );endif
  (if (and
       (/= ln "BYLAYER")        ;;ln不等于"BYLAYER"，"BYBLOCK"，"CONTINUOUS"
       (/= ln "BYBLOCK")
       (/= ln "CONTINUOUS")
     )
      (if (null (tblsearch "ltype" lno))        ;;设定ltype线型表为lno线型
        (command "linetype" "load" lno lltn "")
      );endif
  );endif
  (setvar "celtype" lno)
  (command "pline" (getpoint) "w" llint "") ;;设定pline线宽为llint
);endmain

为何我调用时出错,说缺少参数
(DXTLINE "建筑中的高速公路" "0.4")

Underway

(defun dxtline (lon lint/ ln lno lltn llint)
(setq ln (strcase lon)) ;;将传入的参数lon转变为大写，赋予ln
(setq llint (atof lint))    ; <=====
.
.
.
);endmain


也可以这样调用
(DXTLINE "建筑中的高速公路" 0.4)

;; (setq llint (atof(lint))) 不用
;; 要替换其下的变量名称

heluyuan

看不懂,什么意思,是这行代码出错了吗,怎么改?
我需要把lint转化为实数型啊!
请大家帮帮忙~~

xyp1964

[php](defun dxtline (lon lint/ ln lno lltn llint) ;此句少了空格
  (setq ln (strcase lon))
  (setq llint (atof (lint)))                ;此句多了括号
  (if (>= (getvar "ltscale") 8)                ;以下两句完全一样，不必用if
    (setq lltn "dxtline.lin"
          lno  ln
    )
    (setq lltn "dxtline.lin"
          lno  ln
    )
  )
  (if (and
        (/= ln "BYLAYER")
        (/= ln "BYBLOCK")
        (/= ln "CONTINUOUS")
      )
    (if        (null (tblsearch "ltype" lno))
      (command "linetype" "load" lno lltn "")
    )
  )
  (setvar "celtype" lno)
  (command "pline" (getpoint) "w" llint "")
)

;;;修改后
(defun dxtline (lon lint / ln lno lltn llint)
  (setq        ln    (strcase lon)
        llint (atof lint)
  )
  (if (>= (getvar "ltscale") 8)
    (setq lltn "dxtline.lin")
  )
  (if (and
        (/= ln "BYLAYER")
        (/= ln "BYBLOCK")
        (/= ln "CONTINUOUS")
      )
    (if        (null (tblsearch "ltype" ln))
      (command "linetype" "load" ln lltn "")
    )
  )
  (setvar "celtype" lno)
  (command "pline" (getpoint) "w" llint "")
)[/php]

heluyuan

多谢xyp1964 斑竹的详细指导,
我知道我错在哪里了
就是错在少了一个空格上,
你是第一个回复我问题的斑竹,
我将把我写的国标地形图类线型贴出来以示支持!!
虽然可能还不太完美,但是我花了一个多星期做出来的,以供新手参考.