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

飞雪神光

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 /> )

zhufeng1004

飞雪神光 发表于 2024-1-27 20:12

下面这个程序的记忆功能比较好，就是没有计算功能》》》    你的试了一下好像和我想的不一样
(defun c:ss (/ s_dis)
  (command ".STRETCH" (ssget) "")
  (command (setq BasicPoint (getpoint "\n指定基点:")))
  (if (= nil s_dis_all)
    (progn
      (setq s_dis_all (getreal "\n输入拉伸距离:"))
      (command s_dis_all)
    )
    (progn
      (setq
s_dis (getreal
  (strcat "\n输入拉伸距离<" (rtos s_dis_all 2 4) ">:")
       )
      )
      (if (= nil s_dis)
(setq s_dis s_dis_all)
      )
      (command s_dis)
      (setq s_dis_all s_dis)
    )
  )
)

zhufeng1004

飞雪神光 发表于 2024-1-27 20:12

能把CAL   jj加在我的下面这个程序里面吗

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 />

mojianxing

不错。多谢分享

huisguiji

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

你这是用了插件吧，正常拉伸是输入多少拉多少，你这是直接输入得这个结果