[求助]：舟自横 帮帮忙

lxz0929

你在给我修改的程序中，输出的数据是一行，而现在我想按一列输出，但我找不出你的按行输出的命令在哪，所以请你帮帮忙，告诉我一下！

舟自横

(Defun hyxls-put-column-value (xl id data flg / item Rtn);;;單欄輸入信息并且flg為t則自動調整尺寸
  (if (= (type data) 'str)
    (setq data (list data))
    )
  (setq   id (car (hyxls-cellid id))
          id (hyxls-cellid-calc id 0 (1- (length data)))
          )
(foreach item    data
   (setq Rtn (cons (list item) Rtn)))
  (setq Rtn (hyxls-cell-put-value xl id (reverse Rtn)))
(if flg
   (hyxls-range-autofit
    rtn
   ))
  Rtn
  )
將程序中的hyxls-put-row-value
改為hyxls-put-column-value就可.......

lxz0929

还有个问题，现在程序不稳定，有时不能运行出来——“拟合点的坐标：类型错误”，就会报这样的错，因为我是执行的同一个文件，不知道怎么有问题了！
谢谢你的帮忙了！

舟自横

這個我沒有測試過。。。
你可以自己先分段測試一下，自己養成測試程序的好習慣，
你會收益無窮的。。不要一遇到問題就去問人。。
自己也可以鍛煉一下嘛。。那樣才會有進步的。。。。

lxz0929

关键就是在这，每段都没问题，就是加载以后就报错了，所以才请教你的！

舟自横

那是加載以后運行出錯呢。。還是加載的時候就有錯誤信息?

lxz0929

本来是在运行时出错，好象是我的CAD有问题！
另外我还有个问题：在LISP中打开一个文件，并且想覆盖掉它原先的数据，看书上讲的只是一些命令，没有例子，所以自己编的时候出错了！
(Defun C:SPLL()
      (vl-load-com)
       (PrinC "\n这是对 Spline 进行数据分析的基本程序...")
       (While(progn(setq pen(car(entsel "\n指定一条 Spline: ")))
                        (/= "SPLINE"(cdr(assoc 0 (entget pen))))
                )
                (Alert "所指对象不是 Spline，请重新指定...")
       )
  (setq ent(entget pen))
  (setq ct 0)
  (textpage)
  (princ"\n 拟合点的坐标值:")
  (setq c1(length ent))
  (repeat (length ent)
    (print (nth ct ent))
    (setq ct(+ 1 ct))
  )
  (princ)
(setq txt (cdr (assoc 1 (entget ent))));ent为文本对象名
(write-line txt (setq f (open "TID.bri" "a")));写
(close f)
)
好象是没有和那个文件连上！

舟自横

把tid.bri放在支持路徑下
(write-line txt (setq f (open (findfile "TID.bri") "a")))

lxz0929

好象不行！：（

舟自横

忘記看你的TXT了
(setq txt (cdr (assoc 1 (entget ent))))
這句你是的想做什么？得到的TXT是NIL當然寫不出來了。。
好象SPLINE里面沒有1這個句柄對應的DXF號碼。。
是不是-1???

lxz0929

(setq txt (cdr (assoc 1 (entget ent))))
运行这句话，总是说“参数类型错误”，不知怎么了？
能不能给个例子，我对照参考一下！

舟自横

我不知道你要的是做什么。。
你試一下(setq txt (cdr (assoc -1 (entget ent))))
輸出的是對象的名稱。。。

lxz0929

我还有个问题：
比如我在屏幕上选择3条直线，输出各直线的一个端点坐标，我想按下面的格式输出：
b1=？   b2=?     b3=?  ,而下标取决于在屏幕上选取直线的个数，如是5，则一直到b5=?，因为在后面我还需要这些值！
能不能实现这个功能，我用过
（setq  (strcat  "b "  n)..................)，在这里N应为字符串，是吧？！所以现在我不会处理这个问题了，麻烦你帮我想一想 ！谢了！：）

舟自横

(setq (strcat "b"  (itoa n)..................)
需要將整數n轉化為字符才能合并..

lxz0929

舟自横大哥，有个函数不会使用，帮帮忙！
mapcar函数
(setq m10(nth 0 informa2))
(mapcar - 'm10 (list informa2))
(print informa2)
  )
下面是书上的例子，我试了，根本不行！所以请你指点一下！
(setq a 10 b2 20 c 30)
(mapcar '1 + (list a b c ))