只需一步,快速开始
请教专家们:我编了这样一个倒直角的LISP程序,不过有3个疑问:
1、该程序执行过程出现一个错误,不知道为什么;
2、能否先执行倒角,后指定文字注记的位置和注记文字;
3、如何设置注记文字的样式。
谢谢!
lisp代码如下:
(defun C)
(setvar "cmdecho"0)
(while
(setq d(getstring"\n输入距离:"))
(setq pt(getpoint"\n指定文字注记位置:"))
(setq wz(strcat "D=" d "m"))
(command "text"pt "2" "" wz)
(setvar"chamfera" (atof d))
(setvar"chamferb" (atof d))
(command "chamfer")
)
princ
使用道具 举报
(if (not (tblsearch "style" "ST")) (command "style" "ST" "宋体" 0 1.0 0 "N" "N") )
(command "text" "S" "ST" pt "2" "" wz)
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-9-23 04:31 , Processed in 0.326499 second(s), 25 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.