你好
我只是想在DIMSCALE的基础上定义点/坐标,所以我有以下两种不同的代码-两者之间的区别是红色。
- (DEFUN C:test ( / xcoord ycoord bpt )
- (setq xcoord (* (getvar "dimscale") 424))
- (setq ycoord (* (getvar "dimscale") 96))
- [color="red"](setq bpt (list xcoord ycoord))[/color]
- (command "line" bpt)
- (princ)
- )
- (DEFUN C:test ( / xcoord ycoord bpt )
- (setq xcoord (* (getvar "dimscale") 424))
- (setq ycoord (* (getvar "dimscale") 96))
- [color="red"](setq bpt '(xcoord ycoord))[/color]
- (command "line" bpt)
- (princ)
- )
我的问题是,为什么第一个代码可以工作,但第二个失败?没有给出错误消息。我引用的列表哪里出错了?
非常感谢您的帮助。 |