如何编辑局部变量和全体变量（用lisp实现焊缝画法）？

qcw911

用lisp实现焊缝画法
贱人工具箱里面就有一个
仿照那个编写了一个
方法比较笨
别见笑。

里面的局部变量 和全体变量怎么编辑？
标注后出现错误


(defun c:hf()
(get_data)
(draw)  
(prin1)
)
(defun draw()
  (command "_arc" pts pt1 pt2)
  (setq en1 (entlast))
    (setq pt3 (polar pts (+ ang 0) rad))
    (setq pt4 (polar pt2 (+ ang 0) rad))
    (setq pt5 (polar pt1 (+ ang 0) rad))
  (repeat  (1- nn )
    (command "_arc" pt3 pt5 pt4)
    (setq en2 (entlast))
    (command "_TRIM" en1 "" (list en2 pt3 ) "")
   (setq  en1 en2)
    (setq pt3 (polar pt3 (+ ang 0) rad))
    (setq pt4 (polar pt4 (+ ang 0) rad))
    (setq pt5 (polar pt5 (+ ang 0) rad))
  )
  )
(defun get_data()
  (setq pts (getpoint"\n 请输入起点:"))
  (setq pte (getpoint pts"\n 请输入终点:"))
  (setq rad (getreal"\n请输入半径<1>:"))
  (if (null rad) (setq rad 1))
  (setq ang (angle pts pte))
  (setq pt2 (polar pts (+ ang 0) (* rad 2)))
  (setq pt1 (polar pts (+ ang (/ pi 4)) (* rad (sqrt 2))))
  (setq dd (distance pts pte))
  (setq  nn (fix (/ dd rad)))
)

chg

局部变量你要在你的(defun c:hf (/ pts pt1 pt2.....)....)声明，如果未在斜线后声明的话，将是全局变量。不光是在命令中，在你自定义的函数中一样可以声明局部变量，当然你要掌握好你到底需要什么变量。

qcw911

唉 就是不知道怎么声明

chg

我不是给你例子了吗，LISP中不需要专门的声明语句，只要在斜线后把你的变量名写上去就是局部变量了，不写就是全局变量

尘缘一生

修改下：焊缝高度不用输入，用第三点点击即可，这样更准确！

1. (defun c:hf(/ pts pte rad ang pt1 pt2 pt3 pt4 pt5 dd nn en1 en2)
   
2.   (setq pts (getpoint "\n请输入起点: ")
   
3.     pte (getpoint pts "\n请输入终点: ")
   
4.     pt1 (getpoint pte "\n请点出焊缝厚度: ")
   
5.   )
   
6.   (setq rad (distance pte pt1))
   
7.   (setq ang (angle pts pte))
   
8.   (setq pt2 (polar pts (+ ang 0) (* rad 2)))
   
9.   (setq pt1 (polar pts (+ ang (/ pi 4)) (* rad (sqrt 2))))
   
10.   (setq dd (distance pts pte))
    
11.   (setq  nn (fix (/ dd rad)))
    
12.   (command "_arc" pts pt1 pt2)
    
13.   (setq en1 (entlast))
    
14.   (setq pt3 (polar pts (+ ang 0) rad))
    
15.   (setq pt4 (polar pt2 (+ ang 0) rad))
    
16.   (setq pt5 (polar pt1 (+ ang 0) rad))
    
17.   (repeat  (1- nn )
    
18.     (command "_arc" pt3 pt5 pt4)
    
19.     (setq en2 (entlast))
    
20.     (command "_TRIM" en1 "" (list en2 pt3 ) "")
    
21.     (setq  en1 en2)
    
22.     (setq pt3 (polar pt3 (+ ang 0) rad))
    
23.     (setq pt4 (polar pt4 (+ ang 0) rad))
    
24.     (setq pt5 (polar pt5 (+ ang 0) rad))
    
25.   )
    
26.   (prin1)
    
27. )
    

(defun c:hf(/ pts pte rad ang pt1 pt2 pt3 pt4 pt5 dd nn en1 en2)<br />   (setq pts (getpoint "\n请输入起点: ")<br />     pte (getpoint pts "\n请输入终点: ")<br />     pt1 (getpoint pte "\n请点出焊缝厚度: ")<br />   )<br />   (setq rad (distance pte pt1))<br />   (setq ang (angle pts pte))<br />   (setq pt2 (polar pts (+ ang 0) (* rad 2)))<br />   (setq pt1 (polar pts (+ ang (/ pi 4)) (* rad (sqrt 2))))<br />   (setq dd (distance pts pte))<br />   (setq  nn (fix (/ dd rad)))<br />   (command "_arc" pts pt1 pt2)<br />   (setq en1 (entlast))<br />   (setq pt3 (polar pts (+ ang 0) rad))<br />   (setq pt4 (polar pt2 (+ ang 0) rad))<br />   (setq pt5 (polar pt1 (+ ang 0) rad))<br />   (repeat  (1- nn )<br />     (command "_arc" pt3 pt5 pt4)<br />     (setq en2 (entlast))<br />     (command "_TRIM" en1 "" (list en2 pt3 ) "")<br />     (setq  en1 en2)<br />     (setq pt3 (polar pt3 (+ ang 0) rad))<br />     (setq pt4 (polar pt4 (+ ang 0) rad))<br />     (setq pt5 (polar pt5 (+ ang 0) rad)) <br />   ) <br />   (prin1)<br /> )<br />

taoyi0727

就是
(defun c:hf ( / ))

括号里 斜杠前面的是局部变量 斜杠后面的是全局变量