[求助]需要大家的帮助谢谢了

meflying · 发表于 2003-4-10 14:53:00

同样须加载pick_to_cadlib.lsp，函数pick返回明细表的文本列表，起点为左下角，对角为右上角，明细栏的格式及相对大小都不可改变（可以成比例放大缩小），如须其它操作，可以以pt1为基准，计算其它的位置进行你其它的操作，也可以你的基准点为基准，算出我需要的pt1，参数的形式传给pick，
还有你说的问题，用我的pick_to_cadlib.lsp中的getext函数可以正确返回1:10.

lxyufo · 发表于 2003-4-13 10:12:00

如果有时候只有标题栏内容而没有明细表内容，怎样在导出完标题栏内容后，中止明细表程序代码得循环那。
这段代码加在什么位置呀？？？

meflying · 发表于 2003-4-14 10:09:00

可以在程序开始就做个变量判断有无明细栏，如果无，就不调用明细栏，建议将明细栏的导出做成函数[br]

lxyufo · 发表于 2003-4-14 10:37:00

lxyufo · 发表于 2003-4-14 10:41:00

我有些不明白，能举一个类似的小例子嘛？？谢谢
还有我的标题栏是一个一个范围导出的，现在经常出现这种错误
错误: 参数类型错误: (or stringp symbolp): nil
这是什么原因呀

meflying · 发表于 2003-4-14 10:54:00

假如(pick)是操作明细栏的函数，(pick1)是操作标题栏的函数，(main)是主函数
(defun main()
...
...;此处为你的一些代码，比如选取pt1,pt2...
(pick1)
(setq mxl (getstring "是否有明细栏：(N)没有/(Y)有<Y>:"))
(if (or (= mxl "y") (= mxl "Y"))
(pick pt1 pt2)
)
)

你说的错误是指字符串或符号为空

lxyufo · 发表于 2003-4-15 12:42:00

本帖最后由作者于 2003-4-15 12:42:20 编辑

你能再看看我的图表嘛，我现在想把明细表的的导出格式变成另一种。每次导出事8列。
  在文本的格式：
  序号：1
  图号：123－45
  名称：中国
  数量：2
  材料：石头
  单重：10
  总重：20
  备注：花岗岩
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  序号：2
  图号：123－98
  名称：日本
  数量：2
  材料：石头
  单重：10
  总重：20
  备注：花岗岩
  形式就是这样，我知道这种比较麻烦，我思考了好久，也没有思路。
  所以又来麻烦你，谢谢了

meflying · 发表于 2003-4-15 13:49:00

lxyufo · 发表于 2003-4-15 16:35:00

[此贴子已经被作者于2003-4-15 16:35:38编辑过]

账号		自动登录	找回密码
密码			注册

[求助]需要大家的帮助谢谢了

建議標題檔用屬性來做!!!

文件上传

本帖子中包含更多资源

请你帮忙？我又有一个情况解决不来了。

可以在程序开始就做个变量判断有无明细栏，如果无，就不调用明细栏，建议将明细栏的

请meflying兄，仔细告之，我有些不明白，能举一个类似的小例子嘛？？谢谢了

请meflying兄，仔细告之。

如下

求助！！meflying 兄不好意思，又来麻烦你了，我有了一个新的想法，但没思路

这个很容易，一会帮你做

meflying兄谢谢你对我的帮助!，我等你的消息。

[求助]需要大家的帮助 谢谢了

建議標題檔用屬性來做!!!

文件上传

本帖子中包含更多资源

请你帮忙？我又有一个情况解决不来了。

可以在程序开始就做个变量判断有无明细栏，如果无，就不调用明细栏，建议将明细栏的

请meflying兄 ，仔细告之，我有些不明白，能举一个类似的小例子嘛？？谢谢了

请meflying兄 ，仔细告之。

如下

求助！！meflying 兄不好意思，又来麻烦你了，我有了一个新的想法，但没思路

这个很容易，一会帮你做

meflying兄 谢谢你对我的帮助!，我等你的消息。

[求助]需要大家的帮助谢谢了

请meflying兄，仔细告之，我有些不明白，能举一个类似的小例子嘛？？谢谢了

请meflying兄，仔细告之。

meflying兄谢谢你对我的帮助!，我等你的消息。