hdlyt11 发表于 2010-8-17 19:33:00

[求助]求通过框选连接线的lisp程序

探索者或者网上发布的程序都是单选，选择一条再选另一条，实现连接一条断开的直线，不知道高手们能不能写一个可以框选一批断开的直线实现连接的程序，最好断点间的距离可以设置。

gufeng 发表于 2010-8-18 22:05:00

cad 自带的 PEDIT 命令不行吗？

hdlyt11 发表于 2010-8-20 09:23:00

只能单选，操作复杂啊

szx025 发表于 2010-8-21 09:59:00

<font face="Verdana">(defun c:ll (/ delss en lstx lsty l_ang n ss t1 time xory)<br/>&nbsp; (command ".undo" "be")<br/>&nbsp; (setq ss (ssget '((0 . "line"))))<br/>&nbsp; (setq t1 (getvar "date"))<br/>&nbsp; (setq n 0)<br/>&nbsp; (setq delss (ssadd))<br/>&nbsp; (repeat (sslength ss)<br/>&nbsp;&nbsp;&nbsp; (setq en (ssname ss n))<br/>&nbsp;&nbsp;&nbsp; (setq l_ang (angl en))<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(or (equal l_ang 1.57 0.8)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (equal l_ang 4.71 0.8)<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lsty (cons en lsty))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lstx (cons en lstx))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp; )<br/>&nbsp; (setq xory 0)<br/>&nbsp; (lstxy lstx)<br/>&nbsp; (setq xory 1)<br/>&nbsp; (lstxy lstY)<br/>&nbsp; (command "erase" delss "")<br/>&nbsp; (command ".undo" "e")<br/>&nbsp; (princ "\n选取了:&lt; ")<br/>&nbsp; (princ (sslength ss))<br/>&nbsp; (princ " &gt;合并了:&lt; ")<br/>&nbsp; (princ (sslength delss))<br/>&nbsp; (setq time (rtos (- (getvar "date") t1) 2 16))<br/>&nbsp; (if (= time "0")<br/>&nbsp;&nbsp;&nbsp; (princ " &gt; 程序太快了啦没啥用时啦！")<br/>&nbsp;&nbsp;&nbsp; (princ (strcat " &gt; 用时:"<br/>&nbsp;&nbsp;&nbsp;&nbsp; (menucmd (strcat "m=$(edtime,"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; time<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ",hh:mm:ss:msec)"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)<br/>;;;(princ<br/>&nbsp; ;;;"\n※共线直线合并程序。调用命令为：ll ※\n"<br/>;;;)<br/></font>

hdlyt11 发表于 2010-8-23 21:54:00

<font face="Verdana">错误 : no function definition: ANGL</font>

hdlyt11 发表于 2010-8-23 22:14:00

程序错误，没定义angle
页: [1]
查看完整版本: [求助]求通过框选连接线的lisp程序