kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkakan
提升点人气,感谢开心版主付出的努力
跑进来顶一下讚
本帖最后由 caoyin 于 2012-4-21 04:15 编辑
帮楼主简化下:
(defun C:TT (/ X)
(if (and (setq X (acad_colordlg 7))
(setq X (ssget "X" (list (cons 62 X)))))
(vla-Highlight(vla-get-ActiveSelectionSet(vla-get-ActiveDocument(vlax-get-acad-object))):VLAX-TRUE)
)
(princ)
)
哈哈 ,看看 高手。
yjr111 发表于 2012-4-20 21:24 static/image/common/back.gif
怪不得明经浏览量直线上升了,有点神秘感才好,建议金牌会员以上的都可以有这种回复才能查看的权力
只有源码,防止盗版!
kankan
看看源码
怪不得明经浏览量直线上升了,有点神秘感才好,建议金牌会员以上的都可以有这种回复才能查看的权力