;用法:(EntMakeText 点X 点Y 文本内容 文本高度 颜色 层名)
(defun EntMakeText (px py str tHeight styleName layerName / pt)
(setq pt (list px py))
(entmakeX
(list '(0 . "TEXT")
(cons 1 str)
(
Visual Lisp代码片断:生成文本对象
最新推荐文章于 2024-09-07 07:59:54 发布
本文介绍如何使用Visual Lisp编程来生成文本对象。通过这段代码,开发者可以学习到Visual Lisp在CAD软件中创建和操纵文本的技巧。
摘要由CSDN通过智能技术生成