(XD::Table:ListIndexValues)将(NxM)型LIST构建成索引、值构成的单层索引表

Lispboy

(defun XD::Table:ListIndexValues (lst / a cols i j rows x)
  (if (xd::list:isTable lst)
    (progn
      (setq rows (XD::Table:numrows lst)
            cols (XD::Table:numcolumns lst)
      )
      (setq i -1)
      (apply
        'append
        (vl-remove nil (mapcar
                         (function (lambda (x / j)
                                     (setq i (1+ i)
                                           j -1
                                     )
                                     (if (< i rows)
                                       (vl-remove nil (mapcar
                                                        (function
                                                                  (lambda
                                                                    (a)
                                                                    (setq j
                                                                          (1+ j)
                                                                    )
                                                                    (if
                                                                      (< j cols)
                                                                      (list i j (if (or (= (type a) 'INT)(= (type a) 'REAL))(vl-prin1-to-string a)a))
                                                                    )
                                                                  )
                                                        )
                                                        x 
                                                      )
                                       )
                                     )
                                   )
                         )
                         lst
                       )
        )
      )
    )
  )
)

Lispboy

函数2016.10.21日有更新

521_wind

请问  我保存为LSP文件后  怎么调用这个命令？我i是菜鸟  第一次用

521_wind

请问 这个命令 保存为LSP文件加载后  怎么调用这个命令啊  输入什么？

newer

521_wind 发表于 2016-10-21 22:43

这是一个函数并不是一个命令，所以你直接运行它没意义。
函数是供其他命令调用完成特定功能的。

如果其他程序需要这个，你就保存成LISP，然后加载它就行了。

huanshe04

感谢楼主分享，多谢多谢。

企鹅企鹅企鹅

一、保存LSP文件，加载到CAD中后
二、需要输入什么命令，才能调用（比如CAD输入L，划直线）

240963900

感谢楼主分享，多谢多谢。

20140608LY

Application Error: 2 :- 读入的 (八进制) 字符不正确: 0ADS 请求错误

请问楼主这是什么原因

qxlonmsn

大佬 威武!!!!!!!!!!!!!