如何用LISP实现夹点由蓝色变为红色？

andyhua5240 · 发表于 2014-7-22 11:41:30

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

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

×

先选择对象，就会有蓝色的夹点出现，这时如果按住shift去鼠标左键点夹点就会由蓝色变为红色，夹点被选中了。如何用LSIP程序来实现，如框选一个矩形范围，范围内的夹点全部由蓝色变为红色，由没有选中，变为选中状态啊，如果一个个去点击，太麻烦了，而且没有效率。万能的晓东大神们，能否用程序来实现这个过程呢？拜谢！

csharp · 发表于 2014-7-23 00:13:21

点击夹点是Autocad提供的机制，ARX没有提供这个，不过有MoveStretchPoint,不需要变红就可以操作，另外你既然要拉伸这些夹点，只要用stretch命令交叉窗口选择即可

andyhua5240 · 发表于 2014-7-23 08:54:46

谢谢楼上的捧场，我的目的是为了激活夹点去改变填充图案的边界形状了，好像CAD中没有命令可以这样做。2010以后的版本就可以用夹点来改变填充图案的边界了。没有边界的填充图案不能用拉伸命令来修改，必须要有关联的边界才行。

qht5566 · 发表于 2014-10-25 20:46:57

对于2010以前的版本，可以重新给填充图案生成边框，并使填充图案与生成的边框相关联

(defun C:ht (/ sg i s1)
(setvar "cmdecho" 0)
(command "_.undo" "_begin")
(princ "\n填充重生边框，请选择填充图案：")
(setq sg (ssget '((0 . "hatch"))) i -1)
(while (setq s1 (ssname sg (setq i (1+ i))))
(command "-hatchedit" s1 "b" "p" "y")
)
(command "_.undo" "_end")
(princ)
)

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

[求助] 如何用LISP实现夹点由蓝色变为红色？

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