[LISP程序]：lsp中的command可以输入相对坐标吗？

casd

2. 
   
3. (defun c:wj1()
   
4.   (initget 16)
   
5.   (setq pt1 (getpoint "pick the truss point1"))
   
6.   (setq xp1 (car pt1))
   
7.   (setq yp1 (car (cdr pt1)))
   
8.   (setq zp1 (car (cdr (cdr pt1))))
   
9.   (setq xp2 (- xp1 0.01)
   
10.         yp2 (- yp1 0.01)
    
11.         xp3 (+ xp1 0.01)
    
12.         yp3 (+ yp1 0.01)
    
13.         pt2 (list xp2 yp2)
    
14.         pt3 (list xp3 yp3)
    
15.   )
    
16.    (gc)
    
17.    ;(setq sel1 (ssget "c" pt3 pt2))
    
18.   (command "stretch" "c" pt3 pt2 " " pt1 "(@0,0,-0.70)" "")         
    
19.   
    
20. )
    

<br /> (defun c:wj1()<br />   (initget 16)<br />   (setq pt1 (getpoint "pick the truss point1"))<br />   (setq xp1 (car pt1))<br />   (setq yp1 (car (cdr pt1)))<br />   (setq zp1 (car (cdr (cdr pt1))))<br />   (setq xp2 (- xp1 0.01)<br />         yp2 (- yp1 0.01)<br />         xp3 (+ xp1 0.01)<br />         yp3 (+ yp1 0.01)<br />         pt2 (list xp2 yp2)<br />         pt3 (list xp3 yp3)<br />   )<br />    (gc)<br />    ;(setq sel1 (ssget "c" pt3 pt2))<br />   (command "stretch" "c" pt3 pt2 " " pt1 "(@0,0,-0.70)" "")          <br />   <br /> )<br />

；目的是将相交pt1点的线段由z＝0改为z＝－0.7，x,y坐标不动

XDSoft

最初由 casd 发布
[B][code]
(defun c:wj1()
  (initget 16)
  (setq pt1 (getpoint "pick the truss point1"))
  (setq xp1 (car pt1))
  (setq yp1 (car (cdr pt1)))
  (setq zp1 (car (cdr (cdr pt1))))
  (setq xp2 (- xp1 0.... [/B]

别用这种方法，用POLAR计算另外的座标吧。

casd

问题究竟出在哪里，坐标好算，对此例为（list xp1 yp1 0.7），但怎么stretch呢

XDSoft

最初由 casd 发布
[B]问题究竟出在哪里，坐标好算，对此例为（list xp1 yp1 0.7），但怎么stretch呢 [/B]

你把"(@1,1,0.7)"改为"@1,1,0.7"看看。

长清

最初由 casd 发布
[B]问题究竟出在哪里，坐标好算，对此例为（list xp1 yp1 0.7），但怎么stretch呢 [/B]

“（@...” 我看不懂，你在哪里见过这种语法？

casd

好像根本不stretch，程序倒可以执行

ll_j

晓东所得对，另：你把最后的回车（""）去掉。

听歌睡觉

如果有变量怎么办啊？
(defun c:co (/ a b c d )
  (setq a (getdist "请输入入口宽度:"))
  (setq b (getdist "请输入入口长度:"))
  (setq C (getpoint "请选择输入点:"))
  (command "rectang" "w" 0.15 c ***** "")
  (command "line" c d)
  里面*****部分该怎么写啊？

nuomandi

应该可以

qiaqiadeng

以前我也是老在找如何用command命令的书，其实我后来发现使用command命令时所需要的参数是需要按照命令行里的提示输入就行，如果命令行提示要选择对象，你就给它个选择集，如果需要一个点，就可以用getpoint给它个点，如果需要输入数字，你就getreal 一下，总之，按照命令行提示，顺序一个不能错。