江南十笑 发表于 2019-12-20 13:06:47

这哪个地方格式错了

(defun C:777(/ osm clay cm ort hh bb tt jj pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt22 pt33 pt44 pt55 pt66 pt77 pt88 )
    (setq clay (getvar "clayer"))   ;;图层
    (setq cm (getvar "cmdecho"))   ;;回显
    (setq osm (getvar "osmode"))    ;;抓点
    (setq ort(getvar "orthomode"));;正交
    (setvar "cmdecho" 0)
    (setvar "osmode" 0)
    (setvar "orthomode" 0)
        (command ".layer" "m" "S-STEL" "c" "111" "" "")
    (command "clayer" "S-STEL")

   (setq hh ( GETREAL "\n请输入H型钢梁高："))
   (setq bb ( GETREAL "\n请输入H型钢梁高："))
   (setq tt ( GETREAL "\n请输入H型钢腹板厚："))
   (setq jj ( GETREAL "\n请输入H型钢翼缘厚："))
   (setq pt1 (getpoint "\n请输入插入点:") )


    (setq pt2 (polar pt1 (* pi 0.5) (* hh 0.5)))
    (setq pt3 (polar pt2 pi (* bb 0.5))
        (setq pt4 (polar pt2 0 (* bb 0.5))
    (setq pt5 (polar pt3 (* pi 1.5)jj))
        (setq pt6 (polar pt4 (* pi 1.5)jj))
        (setq pt7 (polar pt5 0 ( * ( - bbtt ) 0.5) ))
        (setq pt8 (polar pt6 pi ( * ( - bb tt ) 0.5) ))
       
        (setq pt22 (polar pt1 (* pi 1.5)(* hh 0.5)))
    (setq pt33 (polar pt22 pi (* bb 0.5))
        (setq pt44 (polar pt22 0 (* bb 0.5))
    (setq pt55 (polar pt33 (* pi 0.5)jj ))
        (setq pt66 (polar pt44 (* pi 0.5)jj ))
        (setq pt77 (polar pt55 0 ( * ( -bbtt ) 0.5) ))
        (setq pt88 (polar pt66 pi ( * ( -bb tt ) 0.5) ))
       

    (command "pline" pt3 "w" "0" "0" pt5 pt7 pt77 pt55 pt33 pt44 pt66 pt88 pt8pt6pt4   "c" )
    (command "hatch" "ANSI31" "50" (entlast) "")
       
       
    (setvar "clayer" clay)
    (setvar "cmdecho" cm)
    (setvar "osmode" osm)
    (setvar "orthomode" ort)   
    (prin1)
)


加载时显示错误: 输入的列表有缺陷哪个地方格式错了

czww26 发表于 2019-12-20 13:10:24

setq pt3闭括号

taoyi0727 发表于 2019-12-20 13:22:34

(defun C:777(/ osm clay cm ort hh bb tt jj pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt22 pt33 pt44 pt55 pt66 pt77 pt88 )
        (setq clay (getvar "clayer"))   ;;图层
        (setq cm (getvar "cmdecho"))   ;;回显
        (setq osm (getvar "osmode"))    ;;抓点
        (setq ort(getvar "orthomode"));;正交
        (setvar "cmdecho" 0)
        (setvar "osmode" 0)
        (setvar "orthomode" 0)
        (command ".layer" "m" "S-STEL" "c" "111" "" "")
        (command "clayer" "S-STEL")
       
        (setq hh ( GETREAL "\n请输入H型钢梁高："))
        (setq bb ( GETREAL "\n请输入H型钢梁高："))
        (setq tt ( GETREAL "\n请输入H型钢腹板厚："))
        (setq jj ( GETREAL "\n请输入H型钢翼缘厚："))
        (setq pt1 (getpoint "\n请输入插入点:") )
       
       
        (setq pt2 (polar pt1 (* pi 0.5) (* hh 0.5)))
        (setq pt3 (polar pt2 pi (* bb 0.5)))
        (setq pt4 (polar pt2 0 (* bb 0.5)))
        (setq pt5 (polar pt3 (* pi 1.5)jj))
        (setq pt6 (polar pt4 (* pi 1.5)jj))
        (setq pt7 (polar pt5 0 ( * ( - bbtt ) 0.5) ))
        (setq pt8 (polar pt6 pi ( * ( - bb tt ) 0.5) ))
       
        (setq pt22 (polar pt1 (* pi 1.5)(* hh 0.5)))
        (setq pt33 (polar pt22 pi (* bb 0.5)))
        (setq pt44 (polar pt22 0 (* bb 0.5)))
        (setq pt55 (polar pt33 (* pi 0.5)jj ))
        (setq pt66 (polar pt44 (* pi 0.5)jj ))
        (setq pt77 (polar pt55 0 ( * ( -bbtt ) 0.5) ))
        (setq pt88 (polar pt66 pi ( * ( -bb tt ) 0.5) ))
       
       
        (command "pline" pt3 "w" "0" "0" pt5 pt7 pt77 pt55 pt33 pt44 pt66 pt88 pt8pt6pt4   "c" )
        (command "hatch" "ANSI31" "50" (entlast) "")
       
       
        (setvar "clayer" clay)
        (setvar "cmdecho" cm)
        (setvar "osmode" osm)
        (setvar "orthomode" ort)   
        (prin1)
)

江南十笑 发表于 2019-12-20 14:04:48

taoyi0727 发表于 2019-12-20 13:22
(defun C:777(/ osm clay cm ort hh bb tt jj pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt22 pt33 pt44 pt55 pt66...

谢谢                  

江南十笑 发表于 2019-12-20 14:05:23

czww26 发表于 2019-12-20 13:10
setq pt3闭括号

谢谢                                    

sharetow 发表于 2019-12-21 09:51:01

用飞诗大佬的编辑器很容易就看的出来。
页: [1]
查看完整版本: 这哪个地方格式错了