[求助]：关于entmake的使用问题？

gjt1244

(setq p1 (getpoint))
(setq p2 (getpoint))
(entmake '((0 . "line") (8 . "0") (cons 10 p1) (cons 11 p2)))
显示如下错误：
DXF 组不正确: (CONS 10 P1)


应该怎样处理？

david96007

(entmake (list '(0 . "line") '(8 . "0") (cons 10 p1) (cons 11 p2)))

gjt1244

可以了，哈哈！但不知道为何要这样，楼主可否粗略解释一下？劳烦了

ljpnb

'((0 . "line") (8 . "0") (cons 10 p1) (cons 11 p2))表明这是一个已知的表，表中的(cons 10 p1)不会重新计算，而(list '(0 . "line") '(8 . "0") (cons 10 p1) (cons 11 p2))构成的表有4个元素，其中前两个是现成的元素，后两个元素则重新计算后生成，我说得不一定对，楼主可以直接在CAD命令行调试或是vliap环境中“检验”。

david96007

'的作用是什么？查查帮助就知道是什么问题了！

zhang2380

这个我倒知道，'((0 . "line") (8 . "0") (cons 10 p1) (cons 11 p2)))，前面一撇是不对后面的表达式求值，当然会错

ljpnb

最初由 david96007 发布
[B]'的作用是什么？查查帮助就知道是什么问题了！ [/B]

' 后面跟着就是一个已知的表，比如(10 10 10 0)，如果对这个表进行操作时，就要前面加 '(10 10 10 0) ，如(cons 11 '(10 10 10 0))返回值为(11 10 10 10 0)

啵浪鼓

'的作用是什么？查查帮助就知道是什么问题了！

呵呵,我用的2006版CAD,这'在VLISP或是CAD帮助里还真找不到呢

david96007

2000帮助里的:
如果表的所有成员都是常量，则可以用 quote 函数显式地定义该表，而不必使用 list 函数。quote 函数返回未求值的表达式，如下所示：

_$  (setq pt1 (quote (4.5 7.5)))  

(4.5 7.5)

单引号 (') 可用作 quote 函数的简写。下面代码与上例的结果相同。

_$  (setq pt1 '(4.5 7.5))  

(4.5 7.5)

2006帮助里的:
If all members of a list are constant values, you can use the quote function to explicitly define the list, rather than the list function. The quote function returns an expression without evaluation, as follows:

_$ (setq pt1 (quote (4.5 7.5)))
(4.5 7.5)
The single quotation mark (') can be used as shorthand for the quote function. The following code produces the same result as the preceding code.

_$ (setq pt1 '(4.5 7.5))
(4.5 7.5)