fpk2014 发表于 2019-12-13 16:02:13

选中动态块图元

想实现隐藏动态块图元的效果，网上找了些代码，都没成功。


(defunc:af (/ e nwelist layername)
(setq e (car (nentsel "\n点选块中的直线: ")))
(setq nwelist (entget e))
(setq layername (cdr (assoc 8 nwelist)))
(command "_.layer" "off" layername "")
)



start4444 发表于 2019-12-13 18:02:10

(command "_.layer" "off" layername "")   改为(entmod (setq nwelist (append nwelist '((60 . 1)))))

fpk2014 发表于 2019-12-16 12:50:07

start4444 发表于 2019-12-13 18:02
(command "_.layer" "off" layername "")   改为(entmod (setq nwelist (append nwelist '((60 . 1)))))

没用，CAD崩溃了
页: [1]
查看完整版本: 选中动态块图元