社区 › AutoLISP/Visual LISP 编程技术 › 【函数源码分享】根据G版思路写的右键菜单函数。附实例代码。

lansedi 发表于 2013-5-21 22:27:52

wowan1314 发表于 2013-5-19 23:50 static/image/common/back.gif
奇怪！附件的”辛苦费”一个都没到我的号里面！莫非明经收取百分百的税！看来通过发附件升级是没希望啦！

支持，这个程序太有用了，方便很多

linheyuanpcb 发表于 2013-5-21 22:48:55

留位..顶上去很好用

teykmcqh 发表于 2013-5-22 01:37:40

没币，随便看一下

众山小 发表于 2013-5-22 08:35:37

峰峰兒 发表于 2013-5-20 08:31 static/image/common/back.gif
下載右键菜单函数.LSP，為什麼不能用，LSP指令是什麼，教小弟一下

我只改了主程序的这里
(wcmatch WZTXT "*DN##*")改成(wcmatch WZTXT "**")


"DN15"   改成"一层平面图"

众山小 发表于 2013-5-22 08:49:07

我修改楼主主程序部分为：
;;主函数
(command "_.undo" "Be")
(WHILE (SETQ EN (entsel "\n选择要修改的文字："))
    (IF(AND (SETQ WZTXT (DXF_READ 1 (CAR EN)))
       (wcmatch WZTXT "**")
)      ;管径
      (PROGN
(SETQ WZLST (LIST " 一层平面图 "    " 二层平面图 "   " 三层平面图 " " 四层平面图 " " 三~三十三层平面图 "" 屋顶及机房层平面图 "
      " ^C1^C~^C14^C立面图 "    "1-1剖面图 "   
      " 地下一层平面图 "   
      
       )


大家可以参照自己修改！

众山小 发表于 2013-5-22 08:51:36

楼主，能否在无编辑修改文字时，是能否增加为插入文字？

我不太懂编程只会皮毛，能否增加该项源码！非常感谢

众山小 发表于 2013-5-22 13:26:01

好的，谢谢楼主提供如此好的源码！

ydw621 发表于 2013-5-22 13:32:55

谢谢楼主，支持一下！

lrd1861 发表于 2013-5-22 16:24:17

非常强大

众山小 发表于 2013-5-22 17:54:58

众人拾柴火焰高。集思广益，加入插入文字。楼主，暂时不要金盆洗手啦！

查看完整版本: 【函数源码分享】根据G版思路写的右键菜单函数。附实例代码。