dwg与pdf的比对，即搜索不可打印实体

dyjwyqz5221

[Actionscript3] 纯文本查看 复制代码

(defun c:yqz-notplot(/ db lyrtbl lyrs ss1 lst1 lst lst-lyr ss yqz::Layer)
	(defun yqz::Layer(lyrs / lst1 lst2)
		(mapcar
			'(lambda(x)
				(if (xdrx-getpropertyvalue (cadr x) "isplottable")
					(setq lst2 (cons (cadr x) lst2))
					(setq lst1 (cons (car x) lst1))
				);;;if
			)
			lyrs
		);;;mapcar
		(list lst1 lst2)
	);;;setq
	(xdrx-begin)
	(setq db (xdrx-database-select)
        	lyrtbl (xdrx-getpropertyvalue db "layertable")
        	lyrs (xdrx-getpropertyvalue lyrtbl "getat" t)
	);;;setq
	;;;存在匿名图层时
	(if (setq ss1 (ssget "X" '((8 . "[*]*"))))
		(setq lst1 (apply 'append (xd::list:removedup (xdrx-entity-getproperty ss1 "layer")))
			lyrs (append lst1 lyrs)
		);;;setq
	);;;setq
	(setq lst (yqz::Layer lyrs))
	(if (not #lst)
		(progn
			(if (setq lst-lyr (xd::list:removedup (car lst)));;;有不可打印图层时
				(if (setq ss (ssget "X" (list '(0 . "~point")(cons 8 (xd::List->String lst-lyr ",")))));;;且有实体非点时。
					(progn
						(mapcar
							'(lambda(x)
								(xdrx-setpropertyvalue x "off" t)
							);;;lambda
							(setq #lst (cadr lst));;;可打印图层
						);;mapcar
						(xdrx-document-zoomentities ss)
						(xdrx-prompt "\n发现不可打印实体！")
					);;;progn
					(progn
						(setq #lst nil)		
						(xdrx-prompt "\n恭喜：未发现不可打印实体")
					);;;progn
				);;;if
				(progn
					(setq #lst nil)		
					(xdrx-prompt "\n恭喜：未发现不可打印实体")
				);;;progn
			);;;if
		);;;progn
		(progn
			(mapcar
				'(lambda(x)
					(xdrx-setpropertyvalue x "off" nil)
				);;;lambda
				#lst
			);;;mapcar
			(setq #lst nil)
		);;;progn
	);;;if
       	(xdrx-end t)	
	(princ)
)

s408597967

很不错的功能  刚需啊

dyjwyqz5221

防止误将有用的实体设置或刷为不可见图层。

Lisphk

什么条件 是 不可打印实体呢

dyjwyqz5221

有些图层是不可打印图层，如："Defpoints"图层，在dwg转pdf时就看不见了，也就打印不出来了。

dyjwyqz5221

Lisphk 发表于 2020-8-25 15:11
什么条件 是 不可打印实体呢

不可打印图层上的实体