用lisp布尔多义线，合并的功能，我想了个路子，请高手指点

cable2004

朋友看看可以了吗？

(defun c:tt (/ ngc_pa ngc_pb ss)
  (setvar "CMDECHO" 0);_关闭命令提示
  (Setq osmode_bak (getvar "osmode"));_记录捕捉
  (Setvar "osmode" 0);_关闭捕捉
  (setq ngc_pa(getpoint "指定一点:")
        ngc_pb(getpoint "指定另一点")
        )        
  (command ".region" "f" ngc_pa ngc_pb "" "")
  (command ".union" "f" ngc_pa ngc_pb "" "")
  (setq ss (ssget (entlast)))
  (command ".Explode" ss)
  (setq ss (ssget (entlast)))
  (command "pedit" "m"  ss "" "y" "j" "" "")
  (Setvar "osmode" osmode_bak);_还原捕捉
  (setvar "CMDECHO" 1);_打开命令提示
  (princ)
  )

shang_123

Gu_xl 发表于 2011-10-12 12:19

要是  这种的可否实现框选 完成！

zhb236623

这个可以下载看看。。。。。。。。。。。。。。

gbhsu

希望能框选，呵呵

LLXXZZ

gbhsu 发表于 2011-10-13 22:11
希望能框选，呵呵

自己编程虽然可以实现很多cad本身操作繁琐的功能,但这个过程是要花时间的.
最近学习犀牛 软件,发现,楼主的问题是这个软件自身命令所能实现,
所以最近没有写代码了,因为多数在cad下很难实现的东西,换个软件就解决了.
比如:求两个线对象(可以是样条曲线)的最近距离的点.,越飞越高老师讲了很长,
这里牵扯到了一点电脑的程序算法,比较繁琐.毕竟咱们不是专业的程序员,这个学习要花费太长的
的时间.
暂时我的解决方案,学习好另一个软件以辅助cad制图.

3527188

2. (defun c:text  (/ osmode_bak ss e getss)
   
3.   (defun getss (e / ss)
   
4.     (setq ss (ssadd))
   
5.     (while (setq e (entnext e))
   
6.       (setq ss (ssadd e ss))
   
7.     )
   
8.     ss
   
9.   )
   
10.   (setvar "CMDECHO" 0);_关闭命令提示
    
11.   (Setq osmode_bak (getvar "osmode"));_记录捕捉
    
12.   (Setvar "osmode" 0);_关闭捕捉
    
13.   (setq ss  (ssget))
    
14.   (setq e(entlast))
    
15.   (command ".region" ss "")
    
16.   (command ".union" (getss e) "")
    
17.   (setq e(entlast))
    
18.   (command ".Explode" (entlast))
    
19.   (if (= 0 (getvar "peditaccept"))(setvar "peditaccept" 1))
    
20.   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")
    
21.   (Setvar "osmode" osmode_bak);_还原捕捉
    
22.   (setvar "CMDECHO" 1);_打开命令提示
    
23.   (princ)
    
24. )

(defun c:text  (/ osmode_bak ss e getss)<br />   (defun getss (e / ss)<br />     (setq ss (ssadd))<br />     (while (setq e (entnext e))<br />       (setq ss (ssadd e ss))<br />     )<br />     ss<br />   )<br />   (setvar "CMDECHO" 0);_关闭命令提示<br />   (Setq osmode_bak (getvar "osmode"));_记录捕捉<br />   (Setvar "osmode" 0);_关闭捕捉<br />   (setq ss  (ssget))<br />   (setq e(entlast))<br />   (command ".region" ss "")<br />   (command ".union" (getss e) "")<br />   (setq e(entlast))<br />   (command ".Explode" (entlast))<br />   (if (= 0 (getvar "peditaccept"))(setvar "peditaccept" 1))<br />   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")<br />   (Setvar "osmode" osmode_bak);_还原捕捉<br />   (setvar "CMDECHO" 1);_打开命令提示<br />   (princ)<br /> )

3527188

改了下，可以框选。但是对于不想交的图元可以用相交函数来判断。

shang_123

3527188 发表于 2011-10-14 11:32
改了下，可以框选。但是对于不想交的图元可以用相交函数来判断。

框选 是可以 但 是还是连接不了！！

raimo

不错,挺好用的..在某些条件下能派上用场..重要的是设计思路很清楚

jsnghost

还是大师的代码好哈~~~学习啦