新开一帖，谁能帮写一下，怎么能把拉伸命令和‘cal组合起来一起用呢？

277283904

新开一帖，谁能帮写一下，怎么能把拉伸命令和‘cal组合起来一起用呢？

lingduwx

只用了拉伸命令，中间没有输入其他的，然后就是输入长度

飞雪神光

zhufeng1004 发表于 2024-1-26 23:06
加上记忆功能  记住上次拉伸距离就完美了

1. (defun c:tt (/ ang dis pt1 pt2 ssls)
   
2.         (if (null (type c:cal))
   
3.     (cond
   
4.                         ((findfile "GEOMCAL.CRX") (ARXLOAD "GEOMCAL.CRX"))
   
5.                         ((findfile "GEOMCAL.ARX") (ARXLOAD "GEOMCAL.ARX"))
   
6.                 )
   
7.   )
   
8.         (mapcar 'set '(ang dis) **stretch_dat**)
   
9.         (or ang (setq ang 0))
   
10.         (or dis (setq dis 100))
    
11.         (setq pt2 nil)
    
12.         (setq ssls (ssget))
    
13.         (setq pt1 (getpoint (strcat "\n指定基点或默认相对基点位移量<" (rtos dis) ">: ")))
    
14.         (if ssls
    
15.                 (progn
    
16.                         (if pt1
    
17.                                 (progn
    
18.                                         (command "_.stretch" ssls "" pt1 "non" (cal (getstring "\n输入相对基点位移量算式:")))
    
19.                                         (setq pt2 (getvar "lastpoint"))
    
20.                                 )
    
21.                         )
    
22.                         (if pt2
    
23.                                 (setq **stretch_dat** (list (angle pt1 pt2) (distance pt1 pt2)))
    
24.                                 (progn
    
25.                                         (setq pt1 '(0 0 0) pt2 (polar pt1 ang dis))
    
26.                                         (command "_.stretch" ssls "" "_non" pt1 "_non" pt2)
    
27.                                 )
    
28.                         )
    
29.                 )
    
30.         )
    
31.         (princ)
    
32. )

(defun c:tt (/ ang dis pt1 pt2 ssls)<br />         (if (null (type c:cal))<br />     (cond<br />                         ((findfile "GEOMCAL.CRX") (ARXLOAD "GEOMCAL.CRX"))<br />                         ((findfile "GEOMCAL.ARX") (ARXLOAD "GEOMCAL.ARX"))<br />                 )<br />   )<br />         (mapcar 'set '(ang dis) **stretch_dat**)<br />         (or ang (setq ang 0))<br />         (or dis (setq dis 100))<br />         (setq pt2 nil)<br />         (setq ssls (ssget))<br />         (setq pt1 (getpoint (strcat "\n指定基点或默认相对基点位移量<" (rtos dis) ">: ")))<br />         (if ssls<br />                 (progn<br />                         (if pt1 <br />                                 (progn<br />                                         (command "_.stretch" ssls "" pt1 "non" (cal (getstring "\n输入相对基点位移量算式:")))<br />                                         (setq pt2 (getvar "lastpoint"))<br />                                 )<br />                         )<br />                         (if pt2<br />                                 (setq **stretch_dat** (list (angle pt1 pt2) (distance pt1 pt2)))<br />                                 (progn<br />                                         (setq pt1 '(0 0 0) pt2 (polar pt1 ang dis))<br />                                         (command "_.stretch" ssls "" "_non" pt1 "_non" pt2)<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

ljpnb

2. ;;修改了一下
   
3. 
   
4. (defun c:tt (/ s_dis str)
   
5.   (if (null (type c:cal))
   
6.     (cond
   
7.       ((findfile "GEOMCAL.CRX") (ARXLOAD "GEOMCAL.CRX"))
   
8.       ((findfile "GEOMCAL.ARX") (ARXLOAD "GEOMCAL.ARX"))
   
9.     )
   
10.   )
    
11.   (command ".STRETCH" (ssget) "")
    
12.   (command (setq BasicPoint (getpoint "\n指定基点:")))
    
13.   (if (= nil s_dis_all)
    
14.     (progn
    
15.       (setq s_dis_all (cal (getstring "\n输入拉伸距离<>:")))
    
16.       (command "non" s_dis_all)
    
17.     )
    
18.     (progn
    
19.       (setq str        (getstring
    
20.                   (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")
    
21.                 )
    
22.       )
    
23.       (if (= str "")
    
24.         (setq s_dis s_dis_all)
    
25.         (setq s_dis (cal str))
    
26.       )
    
27. 
    
28.       (command "non" s_dis)
    
29.       (setq s_dis_all s_dis)
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )
    

;;修改了一下<br /> <br /> (defun c:tt (/ s_dis str)<br />   (if (null (type c:cal))<br />     (cond<br />       ((findfile "GEOMCAL.CRX") (ARXLOAD "GEOMCAL.CRX"))<br />       ((findfile "GEOMCAL.ARX") (ARXLOAD "GEOMCAL.ARX"))<br />     )<br />   )<br />   (command ".STRETCH" (ssget) "")<br />   (command (setq BasicPoint (getpoint "\n指定基点:")))<br />   (if (= nil s_dis_all)<br />     (progn<br />       (setq s_dis_all (cal (getstring "\n输入拉伸距离<>:")))<br />       (command "non" s_dis_all)<br />     )<br />     (progn<br />       (setq str        (getstring<br />                   (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")<br />                 )<br />       )<br />       (if (= str "")<br />         (setq s_dis s_dis_all)<br />         (setq s_dis (cal str))<br />       )<br /> <br />       (command "non" s_dis)<br />       (setq s_dis_all s_dis)<br />     )<br />   )<br />   (princ)<br /> )<br />

sniper1111

反正都写程序了，不如计算好直接用了，用这个好像更麻烦

wzg356

同样问题开多贴有何意义，
如果直接用命令，按要求操作即可，不能同时cal
如果写程序，一个距离要怎么算，用什么算

ssyfeng

条条大道通罗马，不要死盯着一条路

277283904

wzg356 发表于 2024-1-17 13:48
同样问题开多贴有何意义，
如果直接用命令，按要求操作即可，不能同时cal
如果写程序，一个距离要怎么算 ...

只要按'CAL就可以算出来了，只是每次都要按'CAL，感觉有点麻烦

hubeiwdlue

http://www.mjtd.com/forum.php?mo ... amp;_dsign=639c50ed
kucha007大神写的倍长直线，可能是你想要的效果，稍微修改下就成。

huisguiji

lingduwx 发表于 2024-1-17 13:25
只用了拉伸命令，中间没有输入其他的，然后就是输入长度

这个怎么操作的

qazxswk

huisguiji 发表于 2024-1-17 17:05
这个怎么操作的

就是拉伸时，先捕捉到起点，然后再输入拉伸距离。

277283904

hubeiwdlue 发表于 2024-1-17 15:07
http://www.mjtd.com/forum.php?mod=viewthread&tid=188643&mobile=2&_dsign=639c50ed
kucha007大神写的倍 ...

手机版打不开呢