如何从选择集中过滤块对象?
如何从选择集中过滤块对象?
(setq ss1 (ssget))
(setq ss2 ( 从ss1中过滤块对象?))
(setq ss1 (ssget))
(setq ss2 (ssget "p" '((0 . "INSERT")))) (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
(pickset:from-list
(vl-remove-if-not
'(lambda (x) (string-equal "insert" (entity:getdxf x 0)))
(pickset:to-list ss1)))
http://s3.atlisp.cn/static/videos/filter-insert.mp4 感谢各位大佬的帮助与分享!
页:
[1]