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指定插入文本键[12,16,20,30,36]：
)
)
)
（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的文本大小））
)
)
)
)
（普林斯）
)