新建图层并画矩形

山联2 · 发表于 2010-8-21 08:34:35

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

求助各位高手，请写个插件：

加载一个插件后，运行它，就是在新自定义好的图层上,连续画矩形的命令。

woaishuijia · 发表于 2010-8-21 11:27:54

' V9 Q! u# v( v1 Y2 z
(defun c:jx (/ newlayername p1 p2)
E# h& S7 m1 v Q |4 L* V
(setq newlayername (getstring "\n指定新图层的名字:"))
1 Z' J# K& l) X6 t" D. |
(command "-layer" "n" newlayername "s" newlayername "")
3 y; }9 q- W& u1 o+ a* Z' Z
(initget 1)
. J2 s+ U" k1 z; p* I
(while t
1 x! @ W* E0 b: }" q5 d5 G
(setq p1 (getpoint "\n指定第一个角点:")
' Z# w! M! y% M8 _
p2 (getpoint p1 "\n指定第二个角点:")
- g, {5 F1 J) K$ I# G) Z3 q4 H) @& y4 b
) }' y8 P* X: Z. s' \+ s$ \
(command "rectang" p1 p2)
( m. A, m' c6 U0 N$ ~* [; o
)! X" A w8 Q. \. a
(princ)
9 h/ W% c# o/ s' z( r$ n5 l
)4 |& Q: E% a4 g1 j

复制代码

山联2 · 发表于 2010-8-21 15:16:28

本帖最后由山联2 于 2010-8-21 15:33 编辑

先谢过楼上的版主

不过，，代码，提示运行错误: 参数类型错误: numberp: nil
还请明示，，谢谢！

(要新建图层为中文名)

下面一位网友写的：（只能建英文名称的图层）
(defun C:gfg()
(COMMAND "LAYER" "M" "TEMP" "c" "16" "" "lw" "0.18" "" "")
(while (<= c cnt)
(command "-LAYER" "ON" "TEMP" "")
(command "rectang" pause pause)
)
)

woaishuijia · 发表于 2010-8-21 20:45:15

你用的CAD版本太老了吧?
把command "-layer"....改成command "layer"....
我在2005和2010上调试程序,都可以使用中文图层名.

山联2 · 发表于 2010-8-23 10:06:53

谢谢

再试试

感谢版主

		自动登录	找回密码
密码			注册

通知

[已答复] 新建图层并画矩形

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块