请编程师们指点一下

ZZXXQQ

tianyuan 发表于 2011-7-5 17:13
想把数值标注在一个指定的坐标，却总是不行
(defun c:bk ()
  (setq bb (getpoint "請選擇點："))

1、字串不能与数字相加。
2、组表用函数LIST。(list vv nn 0.0)

tianyuan

命令: BK
請選擇點： >>
正在恢复执行 BK 命令。
請選擇點：; 错误: 参数类型错误: numberp: "20590469.16573580"

tianyuan

_$ (defun c:bk ()
  (setq bb (getpoint "請選擇點："))
  (setq qq (/ (cadr bb) 10)
        qq (fix qq)
  )
  (setq qq2 (rtos (/ qq 100.0) 2 2))
  (setq vv (+(rtos(car bb)2 16) 0.1331))
  (setq nn (+(rtos(cadr bb)2 16) 0.0568))
  (setq mm (list vv nn 0.0))
（command “text" "none" mm 0 qq2）

tianyuan

?\用了list怎么还不行？

Andyhon

(defun c:bk ()
  (setq bb (getpoint "請選擇點："))
  (setq qq (/ (cadr bb) 10)
        qq (fix qq)
       qq2 (rtos (/ qq 100.0) 2 2)
  )
  ;|
  (setq vv (+(rtos(car bb)2 16) 0.1331))
  (setq nn (+(rtos(cadr bb)2 16) 0.0568))
  |;
  ;; 是这个意思吗?  
  (setq mm (mapcar '+ bb (list 0.1331 0.0568 0.0)))
  
（command "text" "none" mm 0 qq2）
)

tianyuan

我的意思是把qq2的坐标标注在BB所选取的坐标点再向西移0.1331，向北移0.0568的位置上

Andyhon

...向西移0.1331...
(setq mm (mapcar '+ bb (list -0.1331 0.0568 0.0)))

tianyuan

谢谢Andyhon ，正是这个意思

wdabo

(setq vv (+(rtos(car bb)2 16) 0.1331))
(setq nn (+(rtos(cadr bb)2 16) 0.0568))
检查vv和nn变量，你已经用了rtos了，那么vv和nn都是字符串，字符串还怎么加？
rtos用完之后建议加read函数，例如：(read (rtos (car bb) 2 16) 0.1331)

zhongguola

如果一次性能多标注几个点就好了