一个插入块的小函数,但是不能调用这个wb函数,显示错误: 函数错误: (606.649 629.397 0.0),这个是点第一个点的坐标,请教下为什么会这样呢?
代码如下:“QL”为插入的块名
(defun wb (pt1 pt2 pt3 / scalex scaley orient)
(setq scalex (/ (distance pt1 pt2) 5 )) (setq scaley (/ (distance pt2 pt3) 10)) (setq orient (angtos (angle pt1 pt2) 1 4)) (command "insert" "QL" pt1 scalex scaley orient ) ) (setq pt1 (getpoint)) (setq pt2 (getpoint)) (setq pt3 (getpoint))
(wb (pt1 pt2 pt3 )) |