本帖最后由 xiaocainiao 于 2022-11-16 09:41 编辑
今天遇到一个奇怪的情况、就是被裁剪后的视口、无法用代码复制了、
以下是我的代码、求教各位大神有没有其他方法复制这个视口、
附件中已上传样图、感谢大家
- (defun c:tt ()
- (setq ss (ssget '((0 . "VIEWPORT"))))
- (setq pct (getpoint "\n指定第一点:"))
- (setq pct3 (getpoint pct"\n指定第二点:"))
- (command-s "copy" ss "" pct pct3)
- )
- (princ)
|