怎样用LISP程序填充多条LWPOLYLINE线相交的部分？

吟屏 · 发表于 2002-12-26 17:13:00

本帖最后由作者于 2002-12-26 17:13:27 编辑

如下图

mccad · 发表于 2002-12-26 17:10:00

吟屏 · 发表于 2002-12-27 12:17:00

龙龙仔 · 发表于 2002-12-30 08:27:00

吟屏 · 发表于 2002-12-30 09:07:00

我贴的问题从我学LISP开始就困扰着我，翻破各“武林密芨”，至今不能解决。原因是没有良师益友指点迷经。一日，发现明经社区，里面高手如云，从此我看到了我的希望。望各位大师们不惜赐教。

龙龙仔 · 发表于 2002-12-30 12:27:00

;;虽配合expresstools or doslib
;;要是expresstools or doslib都没有的话把那3行程序删除吧!
;;这是AUTOLISP的程序,改为VLISP会比较快
(defun C:TET (/ AA AL SS N NN Q QQ)

  (defun TT (Q QQ / AAA)
(setq AAA (ssadd))
(command "_.copy" Q "" "0,0" "@")
(ssadd (entlast) AAA)
(command "_.copy" QQ "" "0,0" "@")
(ssadd (entlast) AAA)
(command "_.intersect" AAA "")
AAA
  )

  (setq AA (ssget '((0 . "region"))))
  (setq AL (sslength AA))
  (setq SS (ssadd))
  (setq N 0)
  (acet-ui-progress "填充进行中..." AL) ;for expresstools
  ;;(dos_getprogress "填充选集" "进行中，请耐心等待..." AL);for doslib
  (repeat AL
(setq NN (1+ N))
(setq Q (ssname AA N))
(repeat (- AL NN)
   (setq QQ (ssname AA NN))
   (setq NN (1+ NN))
   (ssadd (ssname (TT Q QQ) 0) SS)
)
(acet-ui-progress -1) ;for expresstools
;;(dos_getprogress -1);for doslib
(setq N (1+ N))
  )
  (command "_.bhatch" "s" SS "" "")
  (command "_.erase" SS "")
  (acet-ui-progress) ;for expresstools
  ;;(dos_getprogress t);for doslib
  (princ)
)

吟屏 · 发表于 2002-12-30 15:18:00

问题1：
expresstools or doslib 是什么？
问题2：
如果出现下图情况应怎么解决？
希望不会太麻烦你。先谢了。

龙龙仔 · 发表于 2002-12-30 15:47:00

吟屏 · 发表于 2002-12-30 16:05:00

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

怎样用LISP程序填充多条LWPOLYLINE线相交的部分？

两根以上的线相交该怎么办呢？

本帖子中包含更多资源

??图在哪？？

这样不行吗？

两两比对来做,你先做做看!!!(我巳径做好了!!)

大师，如何对比？

這樣.....

首先非常感谢龙龙仔，如果……

本帖子中包含更多资源

直接用hatch不是比較好嗎????

我给的图可能很简单，如果直接用命令那还编程序干嘛，不是吗？