[LISP程序]：DynamicToolPack：动态填充

mmmm · 发表于 2009-2-2 22:00:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

根据Andrea Andreetti的程序改写的，详细内容参看http://forums.augi.com/showthread.php?t=93003

源代码。

pdesign · 发表于 2009-2-3 23:21:05

真是好高的高手啊......

另：
能不能改成，执行后不要马上就自动转角度，按个开关后再开始转。

也就是：

执行命令 ==> 初步填充好，（静止,等待选项），[填充类型Z/输入比例V/动态比例D/类型图案S/基点O/旋转R/颜色C/图层L/关于A/动态旋转X[/COLOR] ]

mmmm · 发表于 2009-2-4 10:13:31

参考R选项命令，在动态命令执行前，设定全局变量SetRotate=(getvar "SnapAng")就行了。之后是按R解除旋转锁定。

pdesign · 发表于 2009-2-4 16:31:01

在动态命令执行前，设定全局变量SetRotate=(getvar "SnapAng")后，倒是锁定了旋转，且按R后可解除。可是锁定的角度是不固定的，而是自动获取了当前光标的位置，具体是什么值，要看光标停在哪个位置执行了动态命令。

是不是这句要改一下：
("Dynamic" . "(progn(if(or(null SetRotate)(null ActPoint))(setq ActPoint ::DynamicPoint::)(setq DynPoint ::DynamicPoint::))(Modify-Hatch)(Grdraw-Angle))")

能不能改成固定默认一个角度值（如45，0，90等）?

请指点一下，感谢！

meinkampf · 发表于 2009-2-6 12:36:13

谢谢

mmmm · 发表于 2009-2-6 13:33:27

SetRotate=(getvar "SnapAng")要在::DynamicToolPack-Options之前运行才能锁定角度。
另外。按R的时候，如果当前的角度是锁定的，就改为动态的；如果当前是动态的，会提示输入一个角度并锁定它。

pdesign · 发表于 2009-2-8 04:42:11

老大，SetRotate=(getvar "SnapAng")是在::DynamicToolPack-Options之前运行的。可是每次锁定的角度是不固定的，而是自动获取了当前光标的位置，具体是什么值，要看光标停在哪个位置执行了动态命令
您试一下就知了。

hhjj9898 · 发表于 2009-2-21 14:51:03

不错

hstea · 发表于 2009-2-23 10:52:09

呵呵！厉害啊。

ajing_sky · 发表于 2009-3-10 17:44:20

不得不顶啊

yinjake007 · 发表于 2009-3-25 22:03:38

高手如云啊

xyz518mm · 发表于 2009-3-26 07:05:58

真是高手阿

tanle2020 · 发表于 2009-4-14 10:10:07

要是能记录上次填充图案就好了

llzllf1982 · 发表于 2010-1-25 13:36:04

很想下载这个小程序，可惜没钱，楼主能传给我吗QQ:122819958

zhgcjl · 发表于 2018-11-10 08:12:39

真是好高的高手啊......

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：DynamicToolPack：动态填充

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

真是好高的高手啊......