我写过许多形式的扁平前腿。其中一些是相当大的应用程序。在每个视口中将每个层绘制为dxb并逆向工程二进制dxb文件是我的最爱之一。
一种快速而肮脏的方式,它将所有东西都扔在空中足够高的地方,这样当它下来时,它就会把自己溅得平的。它可能是你已经拥有的流程之一 --
- (defun c:splat ( / ss vars vals)
- ;; to the best of my knowledge the underlying technique
- ;; was made public first by Mr. Randy Richardson
- (cond
- ( (setq ss (ssget))
- (setq vals
- (mapcar 'getvar
- (setq vars '("cmdecho" "highlight"))
- )
- )
- (mapcar 'setvar vars '(0 0))
- (command
- "_.move" ss "" "_non" '(0 0 +1e99) ""
- "_.move" "_p" "" "_non" '(0 0 -1e99) ""
- )
- (mapcar 'setvar vars vals)
- )
- )
- (princ)
- )
|