自己刚学着写的一个切换字体的源码，不知道为什么编译不了。求高手帮忙看下。谢谢了。
本帖最后由 scream2658 于 2014-4-1 17:47 编辑平时画图的时候经常要修改字体样式，看了猫老师的教学视频后也学着写了个切换字体的LISP。下面是LISP源码和DCL对话框。不知道为什么，编译不了。 可能还是初学者的原因吧。里面有句代码其实我自己也没想明白，不知道是不是在这个地方出现了问题的，导致程序编译不了。如源码说明中带????的部分，我的本意是如果存在了字体样式的备份，就将该备份的值赋值给当前的下拉列表框，并存为当前值。但是我在判断是否存在备份的字体样式的时候，已经将该下拉列表框初始化了。现在再在这个地方重新赋值一遍，估计程序就识别不了吧。求高手帮我看看吧。 之前在群里面问过，有个人说，要用$KEY和$VALUE，但是对那个一点都不熟，不知道怎么用。谁能帮我解开下谜团呀。在此谢过了！
刚又试了下，确实是那句代码出问题了。我后来将它注释掉就可以编译了。实在是能力有限，不知道如何修改是好了。
2014.03.30
回家又思考了下，其实是我对VALUE的用法不熟的原因。现在进一步看书学习中。
关于源码要币的，我取消了。
2014.04.01
今天按照同事给我的程序提的意见，修改了下。 希望这次的能简洁点。但是DCL截面还是显得有点稀疏，不知道如何弄得紧凑点。唉！
下午更新到，1.2.4最新的了，加入了颜色的调整。
厉害 (defun C:ETS (/ Elist Ent I Ss)
(princ "\n选择文字左对齐，样式tssd_rein")
(if (not (tblsearch "style" "TSSD_Rein")) ;_ 判断是否存在BEAM层，无则创建
(command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0" "0.7" "0" "n" "n" "N" )
) ;_ 结束if
(setq enl_1 "TSSD_Rein")
(if (and (setq ss (ssget '((0 . "TEXT"))))
(setq i -1)
)
(while (setq ent (ssname ss (setq i (1+ i))))
(setq elist (entget ent))
(setq elist (subst '(72 . 0) (assoc 72 elist) elist))
(setq elist (subst '(73 . 0) (assoc 73 elist) elist))
(setq elist (subst '(7 . "tssd_rein") (assoc 7 elist) elist))
(setq elist (subst '(40 . 300.0) (assoc 40 elist) elist))
(setq elist (subst '(41 . 0.7) (assoc 41 elist) elist))
(entmod elist)
)
)
(princ))
收币不能下载，楼主怎能这样？ 新手就能写出这么牛X的程序。。。 香田里浪人 发表于 2014-3-30 07:17 static/image/common/back.gif
收币不能下载，楼主怎能这样？
已经取消了。把这个当成土木币了。 ysq101 发表于 2014-3-30 19:47 static/image/common/back.gif
新手就能写出这么牛X的程序。。。
承蒙抬爱，其实我写的这个很基础了。你要是懂点LISP的知识一看就明白了，而且功能也极其简单。我主要是通过这个加深点对LISP语言的掌握，多学点LISP知识。 本帖最后由 llsheng_73 于 2014-4-1 02:42 编辑
ysq101 发表于 2014-3-30 19:47 static/image/common/back.gif
新手就能写出这么牛X的程序。。。
这不算是新手了，只是来论坛的时候少些，估计平时宅得网都不怎么上的吧，一件事认真坚持几年的话，这个程序是在正常水平的吧
毕竟lisp很难速成(有别的语言编程经验好一点，但仅仅是思路方面，具体怎样写，起不到关键作用不说甚至可能反过来影响)身边基本没人可问，书越看越湖涂，这是它不好学的最主要的原因 贱人的插件，用TXT格式的打开后，就可以看到为啥他的按钮比较小，比较紧凑了！
页:
[1]