初试DCL有些问题求解决！

gaics

@辰雨@ 发表于 2012-11-17 12:19
(setq blkname （cdr (assoc 2 EP1st)))才对啊，而且这个地方blkname换个别的变量名吧，这个不和图块冲突了 ...

果然如此！(setq blkname （cdr (assoc 2 EP1st)))才对！但是cadr返回的是元素，cdr返回不是表吗？表怎么也被dcl接受了呢？

gaics

@辰雨@ 发表于 2012-11-17 12:19
(setq blkname （cdr (assoc 2 EP1st)))才对啊，而且这个地方blkname换个别的变量名吧，这个不和图块冲突了 ...

还有您说的blkname会和图块冲突 我没弄明白，貌似没有冲突，请指教啊

@辰雨@

gaics 发表于 2012-11-17 12:30
还有您说的blkname会和图块冲突 我没弄明白，貌似没有冲突，请指教啊

1、DXF码这个地方取第二个元素就是用CDR，具体为什么我也不知道，我看的书上作者也没解释
2、blkname本来这个变量是图块的你赋的初值是"A3"，你图块名的时候又用这个变量，只要把图块名变量换个名不用blkname就OK了
3、你现在这样写，程序可以运行，但是图块名那个edit_box里填的是你选取的块名了

gaics

@辰雨@ 发表于 2012-11-17 12:36
1、DXF码这个地方取第二个元素就是用CDR，具体为什么我也不知道，我看的书上作者也没解释
2、blkname本来 ...

明白了！我是想让图块名那个edit_box里填刚刚选取的块名，也就是以这个新选取的块名来生成目录的，A3只是作为默认值放在那里。

gaics

@辰雨@ 发表于 2012-11-17 12:36
1、DXF码这个地方取第二个元素就是用CDR，具体为什么我也不知道，我看的书上作者也没解释
2、blkname本来 ...

还有一个问题，怎么样能够让程序记住上次选择的nametag 、 numtag 、blkname三个变量？

@辰雨@

gaics 发表于 2012-11-17 13:18
还有一个问题，怎么样能够让程序记住上次选择的nametag 、 numtag 、blkname三个变量？

nametag 、 numtag 、blkname 设置成全局变量
(setq std 2 nametag "图名" numtag "图号" blkname "A3")改成
(if (null nametag ) (setq nametag  "图名"))
(if (null  numtag  ) (setq  numtag   "图号"))
(if (null  blkname  ) (setq  blkname   "A3"))

gaics

@辰雨@ 发表于 2012-11-17 14:13
nametag 、 numtag 、blkname 设置成全局变量
(setq std 2 nametag "图名" numtag "图号" blkname "A3") ...

谢谢！