lee50310 发表于 2020-4-25 22:29:40

框選圖塊 並用線連接各圖塊

本帖最后由 lee50310 于 2020-4-26 16:56 编辑

原帖:http://bbs.mjtd.com/thread-110964-1-1.html
感謝ZZXXQQ版大提供,此程序有部份使用希望樓主別介意,
程式中有加入一些新的元素並反覆的除錯測試 終於完成,

塊的連接
功能有四種效果,請自行測試選適合的
執行指令: (1) tt (2) tt2 (3) tt3 (4) tt4
使用的方式   : 執行指令 tt 按 Enter鍵
             1.框選要連線的block 範圍 後按 Enter鍵
             2.點選範圍中的一個起始塊
             3.自動畫出連接塊
<*>程式有限制每次塊選取最大連線數 24個如提高或ˋ降低可修改若不限制可将程式內此行注解或删除即可<*>
(if(> i 24)(setq i 23))   ;; i=0数到23 共24个 限制块最多取24个

效果如圖:



lee50310 发表于 2020-4-26 09:41:44

本帖最后由 lee50310 于 2020-4-26 18:21 编辑

bai2000 发表于 2020-4-26 09:26
能不能修一下，只连接第一次点选的同名块连线？
改好了
-------------------------------------
;同名圖塊連線
;;功能有四種執行指令: (1) bb (2) bb2 (3) bb3 (4) bb4
;;使用的方式   : 執行指令 bb按 Enter鍵
;;             1.先選一個起始塊   
;;             2.框選要連線的block 範圍 後按 Enter鍵
;;             3.自動畫出相同塊的連接
;;


lee50310 发表于 2020-4-26 09:40:33

本帖最后由 lee50310 于 2020-4-26 17:00 编辑

bai2000 发表于 2020-4-26 09:26
能不能修一下，只连接第一次点选的同名块连线？
樓上的意思是框選後只做相同圖塊連線?

好好-MEN 发表于 2022-7-20 15:14:32

845245015 发表于 2020-4-26 08:07:13

持续关注中

845245015 发表于 2020-4-26 08:22:40

能分享一下lisp文件吗

845245015 发表于 2020-4-26 08:51:03

库\文档这是我这段时间捣鼓的可以连线但是连的很乱，可以直接出系统及相关的点位个数

panliang9 发表于 2020-4-26 08:56:10

坐等楼主分享代码。

edsion24 发表于 2020-4-26 09:01:47

跪求分享。。。。。。。。。。。。。。。。。。。。。。。。

bai2000 发表于 2020-4-26 09:26:16

能不能修一下，只连接第一次点选的同名块连线？

忙出一个未来 发表于 2020-4-26 14:20:36

加油，我看好你们
页: [1] 2 3
查看完整版本: 框選圖塊 並用線連接各圖塊