自己刚学着写的一个切换字体的源码，不知道为什么编译不了。求高手帮忙看下。谢谢了。

scream2658

   平时画图的时候经常要修改字体样式，看了猫老师的教学视频后也学着写了个切换字体的LISP。下面是LISP源码和DCL对话框。不知道为什么，编译不了。 可能还是初学者的原因吧。里面有句代码其实我自己也没想明白，不知道是不是在这个地方出现了问题的，导致程序编译不了。如源码说明中带????的部分，我的本意是如果存在了字体样式的备份，就将该备份的值赋值给当前的下拉列表框，并存为当前值。但是我在判断是否存在备份的字体样式的时候，已经将该下拉列表框初始化了。现在再在这个地方重新赋值一遍，估计程序就识别不了吧。求高手帮我看看吧。 之前在群里面问过，有个人说，要用$KEY和$VALUE，但是对那个一点都不熟，不知道怎么用。谁能帮我解开下谜团呀。在此谢过了！

   刚又试了下，确实是那句代码出问题了。我后来将它注释掉就可以编译了。实在是能力有限，不知道如何修改是好了。

  2014.03.30
  回家又思考了下，其实是我对VALUE的用法不熟的原因。现在进一步看书学习中。

  关于源码要币的，我取消了。

2014.04.01
    今天按照同事给我的程序提的意见，修改了下。 希望这次的能简洁点。但是DCL截面还是显得有点稀疏，不知道如何弄得紧凑点。唉！
  下午更新到，1.2.4最新的了，加入了颜色的调整。

Q1241274614

厉害

wxa123wl

(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))

香田里浪人

收币不能下载，楼主怎能这样？

ysq101

新手就能写出这么牛X的程序。。。

scream2658

香田里浪人 发表于 2014-3-30 07:17
收币不能下载，楼主怎能这样？

已经取消了。把这个当成土木币了。

scream2658

ysq101 发表于 2014-3-30 19:47
新手就能写出这么牛X的程序。。。

承蒙抬爱，其实我写的这个很基础了。你要是懂点LISP的知识一看就明白了，而且功能也极其简单。我主要是通过这个加深点对LISP语言的掌握，多学点LISP知识。

llsheng_73

ysq101 发表于 2014-3-30 19:47
新手就能写出这么牛X的程序。。。

这不算是新手了，只是来论坛的时候少些，估计平时宅得网都不怎么上的吧，一件事认真坚持几年的话，这个程序是在正常水平的吧
毕竟lisp很难速成(有别的语言编程经验好一点，但仅仅是思路方面，具体怎样写，起不到关键作用不说甚至可能反过来影响)身边基本没人可问，书越看越湖涂，这是它不好学的最主要的原因

tianyi1230

贱人的插件，用TXT格式的打开后，就可以看到为啥他的按钮比较小，比较紧凑了！