怎样用autoCAD(autolisp或VB)编一个程序画图?急!

[复制链接]
查看11 | 回复1 | 2013-1-12 08:15:38 | 显示全部楼层 |阅读模式
(defun c:lsp_52()(setq lay_dim (getstring "\n尺寸图层 : "))(if (= lay_dim "") (setq lay_dim "DIM"))(setq lay_txt (getstring "\n文字图层 : "))(if (= lay_txt "") (setq lay_txt "TXT"))(setq lay_hat (getstring "\n截面图案填充线图层 : "))(if (= lay_hat "") (setq lay_hat "HAT"))(chklay lay_dim 3 "DIMENSION")(chklay lay_t...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行