自动选择图纸空间视口内模型空间图元lsp源码

kiloleo2

图纸空间直接选择视口内位于模型空间的图元,视口外的不会选择.
主要应用:结合CHSPACE 可以将模型空间图元移动到图纸空间,
实现图框内容的空间统一便于迁移或者其他需求

qifeifei

虽然但是 用不上

masterlong

有用的
比如在布局中
entsel点击一个文字搜寻相同文字
如果目标文字处于模型
那么点击这个动作就得不到想要的目标

所以我的程序中
如果点击为空
会再判断鼠标坐标是否位于某个视口范围内
若是则转换坐标到模型
在模型中再执行一次nentselp

netfoxs

谢谢分享！

caoyin

1. ;;; 我用更简单的代码实现你的前期功能,既然选择集已经选中，后期功能完全可以随机调用诸如移动、删除等命令
   
2. (defun C:TT (/ X C D P1 P2 SS)
   
3.   (cond ((= (getvar 'TILEMODE) 1)
   
4.          (princ "\n先切换到布局。")
   
5.         )
   
6.         ((/= (getvar 'CVPORT) 1)
   
7.          (princ "\n先切换到图纸空间。")
   
8.         )
   
9.         ((not (setq X (entsel "\n选择视口: ")))
   
10.          (princ "\n没选择任何对象。")
    
11.         )
    
12.         ((/= (cdr (assoc 0 (setq X  (entget (car X))))) "VIEWPORT")
    
13.          (princ "\n所选对象不是视口。")
    
14.         )
    
15.         (T
    
16.          (setq C  (cdr (assoc 10 X))
    
17.                D  (list (/ (cdr (assoc 40 X)) 2.0) (/ (cdr (assoc 41 X)) 2.0))
    
18.                P1 (mapcar '- C D)
    
19.                P2 (mapcar '+ C D)
    
20.          )
    
21.          (command "_.MSPACE")
    
22.          (setvar 'CVPORT (cdr (assoc 69 X)))
    
23.          (if (setq SS (ssget "_C" (trans (trans P1 3 2) 2 1) (trans (trans P2 3 2) 2 1)))
    
24.            (sssetfirst nil SS)
    
25.          )
    
26.         )
    
27.   )
    
28.   (princ)
    
29. )
    
30. 
    

;;; 我用更简单的代码实现你的前期功能,既然选择集已经选中，后期功能完全可以随机调用诸如移动、删除等命令<br /> (defun C:TT (/ X C D P1 P2 SS)<br />   (cond ((= (getvar 'TILEMODE) 1)<br />          (princ "\n先切换到布局。")<br />         )<br />         ((/= (getvar 'CVPORT) 1)<br />          (princ "\n先切换到图纸空间。")<br />         )<br />         ((not (setq X (entsel "\n选择视口: ")))<br />          (princ "\n没选择任何对象。")<br />         )<br />         ((/= (cdr (assoc 0 (setq X  (entget (car X))))) "VIEWPORT")<br />          (princ "\n所选对象不是视口。")<br />         )<br />         (T<br />          (setq C  (cdr (assoc 10 X))<br />                D  (list (/ (cdr (assoc 40 X)) 2.0) (/ (cdr (assoc 41 X)) 2.0))<br />                P1 (mapcar '- C D)<br />                P2 (mapcar '+ C D)<br />          )<br />          (command "_.MSPACE")<br />          (setvar 'CVPORT (cdr (assoc 69 X)))<br />          (if (setq SS (ssget "_C" (trans (trans P1 3 2) 2 1) (trans (trans P2 3 2) 2 1)))<br />            (sssetfirst nil SS)<br />          )<br />         )<br />   )<br />   (princ)<br /> )<br /> <br />

magicheno

caoyin 发表于 2025-9-1 09:55

感谢大佬分享

lxl304712346

caoyin 发表于 2025-9-1 09:55

有一个问题，那就是如果是被用多段线等图形裁剪过的视口会被提示不是视口。

caoyin

lxl304712346 发表于 2025-9-2 17:25
有一个问题，那就是如果是被用多段线等图形裁剪过的视口会被提示不是视口。

裁切过的视口，视口是附着在裁切边界上的，也就是说两个对象重合在一起了，用ssget替换entsel就解决问题了，以下是修改后的代码：

2. 
   
3. (defun C:TT (/ X C D P1 P2 SS)
   
4.   (cond ((= (getvar 'TILEMODE) 1)
   
5.          (princ "\n先切换到布局。")
   
6.         )
   
7.         ((/= (getvar 'CVPORT) 1)
   
8.          (princ "\n先切换到图纸空间。")
   
9.         )
   
10.         ((not (setq X (ssget ":S" '((0 . "VIEWPORT")))))
    
11.          (princ "\n没选择任何有效对象。")
    
12.         )
    
13.         ((= (cdr (assoc 0 (setq X (entget (ssname X 0))))) "VIEWPORT")
    
14.          (setq C  (cdr (assoc 10 X))
    
15.                D  (list (/ (cdr (assoc 40 X)) 2.0) (/ (cdr (assoc 41 X)) 2.0))
    
16.                P1 (mapcar '- C D)
    
17.                P2 (mapcar '+ C D)
    
18.          )
    
19.          (command "_.MSPACE")
    
20.          (setvar 'CVPORT (cdr (assoc 69 X)))
    
21.          (if (setq SS (ssget "_C" (trans (trans P1 3 2) 2 1) (trans (trans P2 3 2) 2 1)))
    
22.            (sssetfirst nil SS)
    
23.          )
    
24.         )
    
25.   )
    
26.   (princ)
    
27. )

<br /> (defun C:TT (/ X C D P1 P2 SS)<br />   (cond ((= (getvar 'TILEMODE) 1)<br />          (princ "\n先切换到布局。")<br />         )<br />         ((/= (getvar 'CVPORT) 1)<br />          (princ "\n先切换到图纸空间。")<br />         )<br />         ((not (setq X (ssget ":S" '((0 . "VIEWPORT")))))<br />          (princ "\n没选择任何有效对象。")<br />         )<br />         ((= (cdr (assoc 0 (setq X (entget (ssname X 0))))) "VIEWPORT")<br />          (setq C  (cdr (assoc 10 X))<br />                D  (list (/ (cdr (assoc 40 X)) 2.0) (/ (cdr (assoc 41 X)) 2.0))<br />                P1 (mapcar '- C D)<br />                P2 (mapcar '+ C D)<br />          )<br />          (command "_.MSPACE")<br />          (setvar 'CVPORT (cdr (assoc 69 X)))<br />          (if (setq SS (ssget "_C" (trans (trans P1 3 2) 2 1) (trans (trans P2 3 2) 2 1)))<br />            (sssetfirst nil SS)<br />          )<br />         )<br />   )<br />   (princ)<br /> )