（完成）[编程申请]：以曲线为边界的"选择"

冰火 · 发表于 2002-12-14 16:01:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能不能单独写一个“选择”的程序作为透明命令，无论执行什么命令，在选择的时候都可以把曲线作为选择边界进行操作。现在cad中的命令中有选择有“wp”和“cp”,但没有选曲线实体方便。
多谢!!!!

eachy · 发表于 2002-12-14 21:46:15

最初由冰火发布
[B]能不能单独写一个“选择”的程序作为透明命令，无论执行什么命令，在选择的时候都可以把曲线作为选择边界进行操作。现在cad中的命令中有选择有“wp”和“cp”,但没有选曲线实体方便。
多谢!!!! [/B]

XD新写的“区域拷贝”、“区域删除”的前半部分就是你要的功能。

冰火 · 发表于 2002-12-15 12:56:15

eachy大哥,我不懂lisp程序,能照顾一下菜鸟吗,单独把程序列出来吗?
我想"选择"这一部分应该是cad很重要的一个内容,扩充它的内容能提高cad效率,你认为呢?

eachy · 发表于 2002-12-15 21:25:54

最初由冰火发布
[B]eachy大哥,我不懂lisp程序,能照顾一下菜鸟吗,单独把程序列出来吗?
我想"选择"这一部分应该是cad很重要的一个内容,扩充它的内容能提高cad效率,你认为呢? [/B]

简单改了下，要求选择时用 (xdtb:ssget)

(defun xdtb:ssget (/ tf e ss box filler)
(if (not $XDTB_Global_Region_type)
(setq $XDTB_Global_Region_type "2")
)
(setq tf t)
(while (and
tf
(progn
(prompt (strcat "\n**操作方式--"
(if (= $XDTB_Global_Region_type
"1"
)
"窗口**"
"交叉窗口**"
)
)
)
(initget "1 2")
(setq
e
(xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:")
)
)
(progn
(cond
((= (type e) 'STR)
(setq $XDTB_Global_Region_type e)
)
((= (type (car e)) 'ENAME)
(setq tf nil)
)
)
t
)
)
)
(setq e (car e))
(if (>= (length (setq box (xdrx_getsamplept e))) 3)
(progn
(if (= $XDTB_Global_Region_type "1")
(setq filler (list "wp" box))
(setq filler (list "cp" box))
)
(setq ss (apply 'ssget filler))
(if (not (ssmemb e ss))
(ssadd e ss)
)
)
)
ss
)

(defun xdtb:ssget (/ tf e ss box filler) 
  (if (not $XDTB_Global_Region_type) 
    (setq $XDTB_Global_Region_type "2") 
  ) 
  (setq tf t) 
  (while (and 
           tf 
           (progn 
             (prompt (strcat "\n**操作方式--" 
                             (if (= $XDTB_Global_Region_type 
                                    "1" 
                                 ) 
                               "窗口**" 
                               "交叉窗口**" 
                             ) 
                     ) 
             ) 
             (initget "1 2") 
             (setq 
               e 
                (xdrx_entsel "\n请拾取区域的边界曲线[1:窗口/2:交叉]<退出>:") 
             ) 
           ) 
           (progn 
             (cond 
               ((= (type e) 'STR) 
                (setq $XDTB_Global_Region_type e) 
               ) 
               ((= (type (car e)) 'ENAME) 
                (setq tf nil) 
               ) 
             ) 
             t 
           ) 
         ) 
  ) 
  (setq e (car e)) 
  (if (>= (length (setq box (xdrx_getsamplept e))) 3) 
    (progn 
      (if (= $XDTB_Global_Region_type "1") 
        (setq filler (list "wp" box)) 
        (setq filler (list "cp" box)) 
      ) 
      (setq ss (apply 'ssget filler)) 
      (if (not (ssmemb e ss)) 
        (ssadd e ss) 
      ) 
    ) 
  ) 
  ss 
)

冰火 · 发表于 2003-1-11 18:40:57

eachy大哥,多谢你的帮助，这个程序在cad自己的copy/move/erase/这些命令都可以执行了，但我又遇到新问题，就是我自己加载的lisp程序这个方法不能使用，例如：命令行提示：
Can't reenter LISP.
我想是lisp程序重复加载的问题，有什么办法解决吗?

eachy · 发表于 2003-1-14 18:11:19

最初由冰火发布
[B]eachy大哥,多谢你的帮助，这个程序在cad自己的copy/move/erase/这些命令都可以执行了，但我又遇到新问题，就是我自己加载的lisp程序这个方法不能使用，例如：命令行提示：
Can't reenter LISP.
我想是lisp程序重复... [/B]

把上面的函数加到你的程序中作为一个子函数，构造选择集时用（setq ss （xdtb:ssget））得到选择集。
补充说明：

(if (= $XDTB_Global_Region_type "1")
(setq filler (list "wp" box));;过滤选项
(setq filler (list "cp" box))
)

其中fillter为过滤选项，假如选择曲线内的文字可以这样

(if (= $XDTB_Global_Region_type "1")
(setq filler (list "wp" box [color=blue]'((0 . "text"))[/color]))
(setq filler (list "cp" box [color=blue]'((0 . "text"))[/color]))
)

kfboyxwa · 发表于 2003-1-15 09:56:46

用区域拷贝失败后十字光标线总是变短

君是我的泪 · 发表于 2018-3-26 15:14:48

多段线可以吗？为什么是点无效？

账号		自动登录	找回密码
密码			立即注册

（完成）[编程申请]：以曲线为边界的"选择"

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [编程申请]：以曲线为边界的"选择"

浏览过的版块