怎么总是提醒缺少参数，谁帮忙改一下，画焊缝的

wyb36870

总是提示参数太少，下午的时候还正常运行
(defun C:hf (\ osold)
     (setq osold (getvar "osmode"))
     (setvar "CMDECHO" 0)
     (command "layer" "s" "HF" "")
     (setq pt1 (getpoint "\n输入焊缝的起点 :")
        pt2 (getpoint "\n输入焊缝的终点:")
        h (getint "\n输入焊缝高度的高度:")  
        l (distance pt1 pt2)
        n (fix (/ l h))
        ang (angle pt1 pt2)
        pt3 pt1)
     (setvar "osmode" 0)
     (command ".pline" pt1 "a")
     (repeat (- n 2)
        (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-120")
        (command "d" pt3 pt4)
        (setq pt3 pt4)
   )
     (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-180" "")
     (command "ucs" "p")

     (princ)   
     (setvar "osmode" osold )
)  

ㄘ丶转裑ㄧ灬

1. (defun C:hf (/ osold)
   
2.      (setq osold (getvar "osmode"))
   
3.      (setvar "CMDECHO" 0)
   
4.         (setlayer_lsp "HF" 8);检查焊缝图层是否存在，没有则新建图层
   
5.      (setq pt1 (getpoint "\n输入焊缝的起点 :")
   
6.         pt2 (getpoint "\n输入焊缝的终点:")
   
7.         h (getint "\n输入焊缝高度的高度:")  
   
8.         l (distance pt1 pt2)
   
9.         n (fix (/ l h))
   
10.         ang (angle pt1 pt2)
    
11.         pt3 pt1)
    
12.      (setvar "osmode" 0)
    
13.      (command ".pline" pt1 "a")
    
14.      (repeat (- n 2)
    
15.         (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-120")
    
16.         (command "d" pt3 pt4)
    
17.         (setq pt3 pt4)
    
18.    )
    
19.      (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-180" "")
    
20.         (setvar "osmode" osold )
    
21.      (princ)
    
22. )
    
23. (defun setlayer_lsp(LAY CLR)
    
24.   (if (=(tblobjname "LAYER" LAY) nil)
    
25.     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
    
26.        '(6 . "CONTINUOUS")(cons 62 CLR)'(70 . 0)(cons 2 LAY)))
    
27.     (entmod(subst(cons 62 CLR)(assoc 62(entget(tblobjname "LAYER" LAY)))(entget(tblobjname "LAYER" LAY))))
    
28.    ) (setvar "CLAYER" LAY)
    
29.   )

(defun C:hf (/ osold)<br />      (setq osold (getvar "osmode"))<br />      (setvar "CMDECHO" 0)<br />         (setlayer_lsp "HF" 8);检查焊缝图层是否存在，没有则新建图层<br />      (setq pt1 (getpoint "\n输入焊缝的起点 :")<br />         pt2 (getpoint "\n输入焊缝的终点:")<br />         h (getint "\n输入焊缝高度的高度:")  <br />         l (distance pt1 pt2)<br />         n (fix (/ l h))<br />         ang (angle pt1 pt2)<br />         pt3 pt1)<br />      (setvar "osmode" 0)<br />      (command ".pline" pt1 "a")<br />      (repeat (- n 2)<br />         (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-120")<br />         (command "d" pt3 pt4)<br />         (setq pt3 pt4)<br />    )<br />      (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-180" "")<br />         (setvar "osmode" osold )<br />      (princ)<br /> )<br /> (defun setlayer_lsp(LAY CLR)<br />   (if (=(tblobjname "LAYER" LAY) nil)<br />     (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")<br />        '(6 . "CONTINUOUS")(cons 62 CLR)'(70 . 0)(cons 2 LAY)))<br />     (entmod(subst(cons 62 CLR)(assoc 62(entget(tblobjname "LAYER" LAY)))(entget(tblobjname "LAYER" LAY))))<br />    ) (setvar "CLAYER" LAY)<br />   )

ll_j

(defun C:hf (\ osold)应该是(defun C:hf (/ osold)

shh1980

还真是，这错误挺蒙人的！来自: Android客户端

泉(Ango)

ㄘ丶转裑ㄧ灬 发表于 2016-3-30 16:28

非常好的程序。
但请问我想把焊缝图层调整到weld图层上，怎么修改，颜色为55.
谢谢。

vitalgg

泉(Ango) 发表于 2021-3-4 22:33
非常好的程序。
但请问我想把焊缝图层调整到weld图层上，怎么修改，颜色为55.
谢谢。

这么有规律的东西，为什么不用线型表示。还省空间。

ㄘ丶转裑ㄧ灬

泉(Ango) 发表于 2021-3-4 22:33
非常好的程序。
但请问我想把焊缝图层调整到weld图层上，怎么修改，颜色为55.
谢谢。

第4行就是图层及颜色

dennylaw163

泉(Ango) 发表于 2021-3-4 22:33
非常好的程序。
但请问我想把焊缝图层调整到weld图层上，怎么修改，颜色为55.
谢谢。

(setlayer_lsp "weld" 55)