[求助]：lisp中这个'是什么作用，那位大虾给我讲讲。

zjdtm

(defun c:7test1()
  (initget "A0 A1 A2 A3 A4")
  ;(setq size (getstring "please input the code name of paper= "))
  (setq size (getkword "please input the code name of paper(A0 A1 A2 A3 A4)<A3>: "))
  (if (= size nil)
    (setq size "A3")
    )
  (setq size (strcase size))
  (cond
    ((= size "A0")  (setq p2 ' (1189 841)))
    ((= size "A1")  (setq p2 ' (841 594)))
    ((= size "A2")  (setq p2 ' (594 420)))
    ((= size "A3")  (setq p2 ' (420 297)))
    ((= size "A4")  (setq p2 ' (297 210)))
    (t              (setq p2 ' (420 297)))
   )
  (setq p1 ' (0 0))
  (command "rectang" p1 p2)
  (command "zoom" "A")
  (prin1)
  )
(prompt "cmd 7test1")
(prin1)

hyx_lyn

应为半角符号 '  表示其后的表达式不求值

梦断江南

' 即 quote 函数
cad帮助的解释是：Returns an expression without evaluating it

urljit

(setq p2 ' (1189 841))等同于(setq p2 (list 1189 841))

雪山飞狐(lzh)

问一下，Lisp的传引用的函数怎么写？好像和这个有点关系

梦断江南

最初由 urljit 发布
[B](setq p2 ' (1189 841))等同于(setq p2 (list 1189 841)) [/B]

quote和list最大区别是前者不进行计算，后者计算。
体会一下：
(setq a 1189)
(setq p2 '(A 841))
(setq p2b (list A 841))
(apply '+ p2)
(apply '+ p2b)

”Lisp的传引用的函数“？
是说set么？

aidraft

最初由 urljit 发布
[B](setq p2 ' (1189 841))等同于(setq p2 (list 1189 841)) [/B]

Because the former returns the expression without evaluating it, it's much faster than the latter. Especially when the expression contain many long strings. And it was critical in 20 years ago.

urljit

谢谢各位，让我也跟着学习了，呵呵

雪山飞狐(lzh)

我说的传引用是相对于传值的，就是例如
(vla-GetBoundingBox obj 'min 'max)可以返回多个值的函数

liguochen

好象有种说法叫“对表”还是“表对”来着的

它山之石

看看CAD帮助文件吧。解释的很详细。

urljit

点对是一种表，它必须包含两个成员。在表示点对时，AutoLISP 用一个句号 (.)
分隔表的两个元素。大多数表处理函数都不能以点对作为参数，因此应该确保将正确类型的表传递给函数。
点对是一种“不规则表”，这种表中的最后一个 cdr 不是 nil。

qazxswedccc

不返回值