初学写的一个延长直线和圆弧的功能，还不完善，望高手能指点

夏生生

甜兮兮 发表于 2021-9-9 20:53
能不能在增加个批量一边延长也支持和保存输入上一次数值   这样更加智能化   不知大佬可否改下

一边延长只有特殊情况下可以满足，象2楼所说的左右，要有参照物，不知具体需求，自己根据代码改吧

2. (defun c:lsc (/ os l ss n en pt1 pt2 i l1)
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq os (getvar "OSMODE"))
   
5.   (setvar "OSMODE" 0)
   
6.   (if (null ***l***)
   
7.     (setq ***l*** "100")
   
8.   )
   
9.   (setq l (getreal (strcat "\n伸长量<" ***l*** ">:")))
   
10.   (if (null l)
    
11.     (setq l (atof ***l***))
    
12.   )
    
13.   (if (= l (fix l))
    
14.     (setq ***l*** (rtos l 2 0))
    
15.     (progn (setq i  0
    
16.                  l1 l
    
17.            )
    
18.            (while (/= l1 (fix l1))
    
19.              (setq l1 (* l (expt 10 i))
    
20.                    i  (1+ i)
    
21.              )
    
22.            )
    
23.            (setq ***l*** (rtos l 2 (1- i)))
    
24.     )
    
25.   )
    
26.   (setq ss (ssget '((0 . "lwpolyline,line,arc"))))
    
27.   (repeat (setq n (sslength ss))
    
28.     (setq en  (ssname ss (setq n (1- n)))
    
29.           pt1 (vlax-curve-getstartpoint en)
    
30.           pt2 (vlax-curve-getendpoint en)
    
31.     )
    
32.     (command "lengthen" "de" l (list en pt1) (list en pt2) "")
    
33.   )
    
34.   (setvar "OSMODE" os)
    
35.   (princ)
    
36. )
    

(defun c:lsc (/ os l ss n en pt1 pt2 i l1)<br />   (setvar "CMDECHO" 0)<br />   (setq os (getvar "OSMODE"))<br />   (setvar "OSMODE" 0)<br />   (if (null ***l***)<br />     (setq ***l*** "100")<br />   )<br />   (setq l (getreal (strcat "\n伸长量<" ***l*** ">:")))<br />   (if (null l)<br />     (setq l (atof ***l***))<br />   )<br />   (if (= l (fix l))<br />     (setq ***l*** (rtos l 2 0))<br />     (progn (setq i  0<br />                  l1 l<br />            )<br />            (while (/= l1 (fix l1))<br />              (setq l1 (* l (expt 10 i))<br />                    i  (1+ i)<br />              )<br />            )<br />            (setq ***l*** (rtos l 2 (1- i)))<br />     )<br />   )<br />   (setq ss (ssget '((0 . "lwpolyline,line,arc"))))<br />   (repeat (setq n (sslength ss))<br />     (setq en  (ssname ss (setq n (1- n)))<br />           pt1 (vlax-curve-getstartpoint en)<br />           pt2 (vlax-curve-getendpoint en)<br />     )<br />     (command "lengthen" "de" l (list en pt1) (list en pt2) "")<br />   )<br />   (setvar "OSMODE" os)<br />   (princ)<br /> )<br />

甜兮兮

谢谢小哥哥   

甜兮兮

夏生生 发表于 2021-9-10 00:54
一边延长只有特殊情况下可以满足，象2楼所说的左右，要有参照物，不知具体需求，自己根据代码改吧

谢谢小哥哥   

alexmai

甜兮兮 发表于 2021-9-9 20:53
能不能在增加个批量一边延长也支持和保存输入上一次数值   这样更加智能化   不知大佬可否改下

这里有答案
http://bbs.mjtd.com/forum.php?mo ... hlight=%D1%D3%B3%A4

甜兮兮

alexmai 发表于 2021-9-11 20:36
这里有答案
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=179273&highlight=%D1%D3%B3%A4

谢谢小哥哥   要是把这两个合并起来就完美呢