mrhvslisp 发表于 2012-4-28 17:49:47

如何使图元处于被编辑状态，就如同CAD框选了它一样

如何使图元处于被编辑状态，就如同CAD框选了它一样。
我想做的是一个过滤器，
能不能由选择集选择实体，后面不用代码对选择集进行任何操作
让选择集内的实体如同在CAD中被框选了一样，
可以由用户在CAD中自由操作。

Andyhon 发表于 2012-4-28 17:54:51

check sssetfirst func

vlisp2012 发表于 2012-4-29 14:54:40

(defun c:ffcb();;;选择块
(setq ssg(ssget '((0 . "INSERT"))))
(sssetfirst nil ssg)
)

(defun c:ffT();;;选择文字
(setq ssg(ssget '((0 . "*TEXT"))))
(sssetfirst nil ssg)
)

(defun c:ffLE();;;选择引线
(setq ssg(ssget '((0 . "LEADER"))))
(sssetfirst nil ssg)
)
(defun c:ffRE();;;选择面域
(setq ssg(ssget '((0 . "REGION"))))
(sssetfirst nil ssg)
)

vlisp2012 发表于 2012-4-29 14:58:49

(defun c:ffcb();;;选择块
(setq ssg(ssget '((0 . "INSERT"))))
(sssetfirst nil ssg)
)

mrhvslisp 发表于 2012-5-2 09:25:34

vlisp2012 发表于 2012-4-29 14:58 static/image/common/back.gif
(defun c:ffcb();;;选择块
(setq ssg(ssget '((0 . "INSERT"))))
(sssetfirst nil ssg)


感谢感谢

mrhvslisp 发表于 2012-5-2 09:26:05

Andyhon 发表于 2012-4-28 17:54 static/image/common/back.gif
check sssetfirst func

感谢大大
页: [1]
查看完整版本: 如何使图元处于被编辑状态，就如同CAD框选了它一样