社区 › Auto Lisp › Lisp插入文本

Lee Mac 发表于 2022-7-5 19:18:52

下面是另一种方法，删除额外的步骤：
上面将定义自定义命令：“M20”、“M24”、“M30”、“M40”。

BIGAL 发表于 2022-7-5 19:22:50

还有几个建议。
 
如果您反复这样做，您可以在一个lsip文件中键入带有一系列lisp defuns的M20，（defun c:M20（）。。。。。。
 
为什么连一个菜单项“Bolts”20 30 40等等或一个工具栏都没有呢。
 
DCL列表选择。
 
如果我能以另一种方式使用旧的屏幕菜单。
 
有很多选择。试着自己做一件其他的事情。

wrha 发表于 2022-7-5 19:25:31

我已经做了，但很乐意检查M30中有什么问题，M36其他工作正常。
 
（defun c：插座（/kw st pt）
;; 塔瓦特24.08.2015；；
（如果
（和（程序
（initget 16“M12 M16 M20 M24 M30 M36”）
（设定值kw
（格特沃德）
“\n指定插入文本键：
)
)
)
（setq）
st（第n个（vl位置kw’（“M12”“M16”“M20”“30”“36”））
'（“M12 810220件”“M16 810221件”“M20 810222件”“M24 810223件”“M24 810224件”“M36 810225件”）
)
)
)
（while（setq pt
（获取点
（strcat“\n指定文本的插入点
圣
" > :"
)
)
)
（entmake（列表）（0。“文本”）
（cons 10（trans pt 1 0））
（cons 11（trans pt 1 0））
（cons 1 st）
（cons 7（getvar的文本样式））
（cons 40（getvar的文本大小））
)
)
)
)
（普林斯）
)

wrha 发表于 2022-7-5 19:29:22

如果你纠正了lisp，只需参考不同颜色的输入，因为我会添加我的数据库和它的巨大。
谢谢

BIGAL 发表于 2022-7-5 19:32:47

</blockquote>

Tharwat 发表于 2022-7-5 19:37:20

 
上面的列表和我在程序中包含的列表一样吗？

wrha 发表于 2022-7-5 19:38:17

很抱歉延迟回复。
是的，我根据我写的内容改变了。请检查有什么问题

wrha 发表于 2022-7-5 19:41:43

请通过不同的颜色输入和输出，以获得添加我的数据库的可能性，因为每个对象（插座）我有代码编号。
例如，当我选择
（M20）插入（812020）
（M24）插入（812024）。。。等
我需要添加的对象太多了。
我希望我能得到帮助
谢谢

查看完整版本: Lisp插入文本