请教关于主程序子程序调用问题

a117034423 · 发表于 2020-12-11 16:58:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun noc (/ sty1 sty2 sty3)；子程序
(defun nob (/ azc1 azc2 ass)；子程序
(defun c:sbs (/ ty1 mod0 ptmin ptmax azxy qs1 bh1 ss1)；主程序
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(nob)
(noc)

请大神看看，主子程序间调用有问题吗？
为什么我的变量总出错，变量定义我看着没问题啊

a117034423 · 发表于 2020-12-11 16:59:24

每个函数后面的参数都是函数自身的参数，我在反复测试时，为何有时会清空变量，各程序间变量也没有引用

newer · 发表于 2020-12-11 19:23:40

子程序，主程序里面的具体代码贴下
说下哪个变量有问题

a117034423 · 发表于 2020-12-11 19:28:29

本帖最后由 a117034423 于 2020-12-11 19:53 编辑

newer 发表于 2020-12-11 19:23
子程序，主程序里面的具体代码贴下
说下哪个变量有问题

(defun noc (/ sty1 sty2 sty3)
(if (null (tblsearch "LAYER" "编号"))
(entmake
(list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(70 . 0)
(cons 2 "编号")
(cons 62 7)
)
)
(progn
(setq sty1 (entget (tblobjname "layer" "编号")))
(setq sty1 (subst (cons 62 7) (assoc 62 sty1) sty1))
(entmod sty1)
)
)
(if (null (tblsearch "style" "黑体"))
(entmake
(list
'(0 . "STYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord")
'(2 . "黑体")
'(70 . 0)
'(40 . 0.0)
'(41 . 1.0)
'(50 . 0.0)
'(71 . 0)
'(42 . 300)
'(3 . "simhei.ttf")
'(4 . "")
)
)
)
(if (null (tblsearch "dimstyle" "编号"))
(entmake (list
'(0 . "dimstyle")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbDimStyleTableRecord")
'(70 . 0)
(cons 2 "编号") ; 标注样式名
'(3 . "") ;测量单位
'(4 . "") ;前后缀 "M<>n"
'(5 . "ArchTick") ;断点样式
'(6 . "") ;起始断点样式
'(7 . "") ;终点断点样式
'(40 . 1.0) ;全局比例
'(41 . 0.0) ;箭头尺寸
'(42 . 150.0) ;起点偏移量
'(43 . 0.0) ;基线间距
'(44 . 125.0) ;超出尺寸界线
'(45 . 0.0) ;舍入值
'(46 . 0.0) ;延伸线距离
'(47 . 0.0) ;正公差
'(48 . 0.0) ;负公差
'(140 . 300.0) ;标注文字高度
'(141 . 0.09) ;圆心标记
'(142 . 0.0) ;短斜线箭头
'(143 . 25.4) ;对照单位比例系数
'(144 . 1.0) ;标注线性比例
'(145 . 0.0) ;标注垂直位置
'(146 . 1.0) ;公差文字高度比例
'(147 . -63.125) ;截断线与文字距离
'(71 . 0) ;是否显示公差
'(72 . 0) ;创建上下限标注
'(73 . 0) ;内侧文字水平
'(74 . 0) ;扩展线外侧文字位置
'(75 . 1) ;尺寸界线1隐藏
'(76 . 1) ;尺寸界线2隐藏
'(77 . 1) ;文字在尺寸线上方
'(78 . 0) ;消零
'(170 . 0) ;对照单位显示
'(171 . 2) ;对照单位小数字数
'(172 . 1) ;标注线与延伸线关系
'(173 . 0) ;箭头是否显示
'(174 . 1) ;文字与延伸线关系
'(175 . 1) ;隐藏箭头noc
'(176 . 0) ;标注线颜色
'(177 . 0) ;标注延伸线颜色
'(178 . 7) ;标注文字颜色
'(270 . 2) ;标注类型单位
'(271 . 0) ;尺寸标注精度
'(272 . 0) ;公差精度
'(273 . 2) ;对照单位格式
'(274 . 2) ;对照单位小数字数
(cons 340 (tblobjname "style" "黑体")) ;标注文字样式
'(275 . 0) ;角度单位格式
'(280 . 0) ;文字对正方式
'(281 . 1) ;尺寸线1隐藏
'(282 . 1) ;尺寸线2隐藏
)
)
(progn
(setq sty3 (entget (tblobjname "dimstyle" "编号")))
(setq sty3 (subst (cons 41 0) (assoc 41 sty3) sty3))
(setq sty3 (subst (cons 178 7) (assoc 178 sty3) sty3))
(setq sty3 (subst (cons 140 300) (assoc 140 sty3) sty3))
(entmod sty3)
)
)
)
;;;;;;;;;;;;;;;;;;;;
(defun nob (/ azc1 azc2 ass)
(if (null (tblsearch "LAYER" "安装标记"))
(entmake
(list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(70 . 0)
(cons 2 "安装标记")
(cons 62 3))))
(if (null (tblsearch "block" "安装标记"))
(progn
(entmake (list '(0 . "block") (cons 2 "安装标记") '(70 . 0) (cons 10 (list 0 0 0))))
(setq ass (ssadd))
(entmake (list '(0 . "CIRCLE") (cons 8 "安装标记") (cons 10 (list 0 0 0)) (cons 40 100)))
(setq azc1 (entlast))
(ssadd azc1 ass)
(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(8 . "安装标记")
'(100 . "AcDbPolyline")
'(90 . 2)
'(10 0.0 -65.0 0.0)
'(40 . 150)
'(41 . 0)
'(10 0.0 100.0 0.0)
'(40 . 0)
'(41 . 0)
))
(setq azc2 (entlast))
(ssadd azc2 ass)
(entmake '((0 . "ENDBLK")))
(vla-erase (vlax-ename->vla-object azc1))
(vla-erase (vlax-ename->vla-object azc2))
)
)
)
;;;;;;;;;;获取图元信息坐标函数
(defun c:sbs (/ ty1 mod0 ptmin ptmax azxy qs1 bh1 ss1)
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(nob)
(noc)
(setq qs1 (getstring "\n请输入分区编号"))
(setq bh1 (getint "\n请输入起始编号"))
(setq ss1 (ssget '
(
(-4 . "<AND")
(0 . "LWPOLYLINE")
(8 . "板轮廓线")
(-4 . "AND>")
)
)
n (sslength ss1)
)
(repeat n
(setq ty1 (ssname ss1 (1- n))
n (1- n)
)
(setq mod0 (vl-remove nil (mapcar '(lambda (x) (if (= (car x) 10) (cdr x))) (entget ty1))))
(setq ptmin (apply 'mapcar (cons 'min mod0))) ;;;拾取点表最小坐标值
(setq ptmax (apply 'mapcar (cons 'max mod0))) ;;;拾取点表最大坐标值
(setq azxy (list (/ (+ (car ptmax) (car ptmin)) 2) (- (cadr ptmax) 120)))
(setq txt1 (strcase (strcat "DB-" qs1 "-" (rtos bh1))))
(setq bh1 (1+ bh1))
(entmake (list '(0 . "INSERT") '(8 . "安装标记") (cons 2 "安装标记") (cons 10 azxy)))
(entmake (list
'(0 . "DIMENSION")
'(3 . "编号")
'(8 . "编号")
'(62 . 3)
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 (list (car ptmax) (cadr ptmin)))
'(70 . 0)
(cons 1 txt1)
'(100 . "AcDbAlignedDimension")
'(100 . "AcDbRotatedDimension")
(cons 13 (list (car ptmax) (cadr ptmin)))
(cons 14 (list (- (car ptmax) 2000) (cadr ptmin)))
)
)
)
(setvar "osmode" osm)
(princ)
)

(defun noc (/ sty1 sty2 sty3) 
(if (null (tblsearch "LAYER" "编号")) 
        (entmake 
            (list 
               '(0 . "LAYER") 
               '(100 . "AcDbSymbolTableRecord") 
               '(100 . "AcDbLayerTableRecord") 
               '(70 . 0) 
                (cons 2 "编号") 
                (cons 62 7) 
            ) 
         ) 
  (progn 
  (setq sty1 (entget (tblobjname "layer" "编号"))) 
  (setq sty1 (subst (cons 62 7) (assoc 62 sty1) sty1)) 
  (entmod sty1) 
  ) 
  ) 
(if (null (tblsearch "style" "黑体")) 
        (entmake 
          (list 
               '(0 . "STYLE") 
               '(100 . "AcDbSymbolTableRecord") 
               '(100 . "AcDbTextStyleTableRecord") 
               '(2 . "黑体") 
               '(70 . 0) 
               '(40 . 0.0) 
               '(41 . 1.0) 
               '(50 . 0.0) 
               '(71 . 0) 
               '(42 . 300) 
               '(3 . "simhei.ttf") 
               '(4 . "") 
          ) 
       ) 
   ) 
(if (null (tblsearch "dimstyle" "编号")) 
(entmake   (list 
           '(0 . "dimstyle") 
           '(100 . "AcDbSymbolTableRecord") 
           '(100 . "AcDbDimStyleTableRecord") 
           '(70 . 0) 
           (cons 2 "编号") ; 标注样式名 
           '(3 . "") ;测量单位 
           '(4 . "") ;前后缀 "M<>n" 
           '(5 . "ArchTick") ;断点样式 
           '(6 . "") ;起始断点样式 
           '(7 . "") ;终点断点样式 
           '(40 . 1.0) ;全局比例 
           '(41 . 0.0) ;箭头尺寸 
           '(42 . 150.0) ;起点偏移量 
           '(43 . 0.0) ;基线间距 
           '(44 . 125.0) ;超出尺寸界线 
           '(45 . 0.0) ;舍入值 
           '(46 . 0.0) ;延伸线距离 
           '(47 . 0.0) ;正公差 
           '(48 . 0.0) ;负公差 
           '(140 . 300.0) ;标注文字高度 
           '(141 . 0.09) ;圆心标记 
           '(142 . 0.0) ;短斜线箭头 
           '(143 . 25.4) ;对照单位比例系数 
           '(144 . 1.0) ;标注线性比例 
           '(145 . 0.0) ;标注垂直位置 
           '(146 . 1.0) ;公差文字高度比例 
           '(147 . -63.125) ;截断线与文字距离 
           '(71 . 0) ;是否显示公差 
           '(72 . 0) ;创建上下限标注 
           '(73 . 0) ;内侧文字水平 
           '(74 . 0) ;扩展线外侧文字位置 
           '(75 . 1) ;尺寸界线1隐藏 
           '(76 . 1) ;尺寸界线2隐藏 
           '(77 . 1) ;文字在尺寸线上方 
           '(78 . 0) ;消零 
           '(170 . 0) ;对照单位显示 
           '(171 . 2) ;对照单位小数字数 
           '(172 . 1) ;标注线与延伸线关系 
           '(173 . 0) ;箭头是否显示 
           '(174 . 1) ;文字与延伸线关系 
           '(175 . 1) ;隐藏箭头noc 
           '(176 . 0) ;标注线颜色 
           '(177 . 0) ;标注延伸线颜色 
           '(178 . 7) ;标注文字颜色 
           '(270 . 2) ;标注类型单位 
           '(271 . 0) ;尺寸标注精度 
           '(272 . 0) ;公差精度 
           '(273 . 2) ;对照单位格式 
           '(274 . 2) ;对照单位小数字数 
           (cons 340 (tblobjname "style" "黑体")) ;标注文字样式 
           '(275 . 0) ;角度单位格式 
           '(280 . 0) ;文字对正方式 
           '(281 . 1) ;尺寸线1隐藏 
           '(282 . 1) ;尺寸线2隐藏 
                 ) 
      ) 
(progn 
(setq sty3 (entget (tblobjname "dimstyle" "编号"))) 
(setq sty3 (subst (cons 41 0) (assoc 41 sty3) sty3)) 
(setq sty3 (subst (cons 178 7) (assoc 178 sty3) sty3)) 
(setq sty3 (subst (cons 140 300) (assoc 140 sty3) sty3)) 
(entmod sty3) 
) 
  ) 
) 
;;;;;;;;;;;;;;;;;;;; 
(defun nob (/ azc1 azc2 ass) 
(if (null (tblsearch "LAYER" "安装标记")) 
        (entmake 
            (list 
               '(0 . "LAYER") 
               '(100 . "AcDbSymbolTableRecord") 
               '(100 . "AcDbLayerTableRecord") 
               '(70 . 0) 
                (cons 2 "安装标记") 
                (cons 62 3)))) 
(if (null (tblsearch "block" "安装标记")) 
(progn 
(entmake (list '(0 . "block") (cons 2 "安装标记") '(70 . 0) (cons 10 (list 0 0 0)))) 
(setq ass (ssadd)) 
(entmake (list '(0 . "CIRCLE") (cons 8 "安装标记") (cons 10 (list 0 0 0)) (cons 40 100))) 
(setq azc1 (entlast)) 
(ssadd azc1 ass) 
(entmake (list '(0 . "LWPOLYLINE") 
               '(100 . "AcDbEntity") 
               '(8 . "安装标记") 
               '(100 . "AcDbPolyline") 
               '(90 . 2) 
               '(10 0.0 -65.0 0.0) 
               '(40 . 150) 
               '(41 . 0) 
               '(10 0.0 100.0 0.0) 
               '(40 . 0) 
               '(41 . 0) 
               )) 
(setq azc2 (entlast)) 
(ssadd azc2 ass) 
(entmake '((0 . "ENDBLK"))) 
(vla-erase (vlax-ename->vla-object azc1)) 
(vla-erase (vlax-ename->vla-object azc2)) 
) 
  ) 
) 
;;;;;;;;;;获取图元信息坐标函数 
(defun c:sbs (/ ty1 mod0 ptmin ptmax azxy qs1 bh1 ss1) 
(setvar "cmdecho" 0) 
(setq osm (getvar "osmode")) 
(setvar "osmode" 0) 
(nob) 
(noc) 
(setq qs1 (getstring "\n请输入分区编号")) 
(setq bh1 (getint "\n请输入起始编号")) 
(setq ss1 (ssget ' 
            ( 
             (-4 . "<AND") 
             (0 . "LWPOLYLINE") 
             (8 . "板轮廓线") 
             (-4 . "AND>") 
            ) 
          ) 
       
     n  (sslength ss1) 
      ) 
  (repeat n 
    (setq ty1 (ssname ss1 (1- n)) 
          n   (1- n) 
          ) 
    (setq mod0 (vl-remove nil (mapcar  '(lambda (x) (if (= (car x) 10) (cdr x))) (entget ty1)))) 
    (setq ptmin (apply 'mapcar (cons 'min mod0))) ;;;拾取点表最小坐标值 
    (setq ptmax (apply 'mapcar (cons 'max mod0))) ;;;拾取点表最大坐标值 
    (setq azxy (list (/ (+ (car ptmax) (car ptmin)) 2) (- (cadr ptmax) 120))) 
    (setq txt1 (strcase (strcat "DB-" qs1 "-" (rtos bh1)))) 
    (setq bh1 (1+ bh1)) 
    (entmake (list '(0 . "INSERT") '(8 . "安装标记") (cons 2 "安装标记") (cons 10 azxy))) 
    (entmake (list 
               '(0 . "DIMENSION") 
               '(3 . "编号") 
               '(8 . "编号") 
               '(62 . 3) 
               '(100 . "AcDbEntity") 
               '(100 . "AcDbDimension") 
                (cons 10 (list (car ptmax) (cadr ptmin))) 
               '(70 . 0) 
                (cons 1 txt1) 
               '(100 . "AcDbAlignedDimension") 
               '(100 . "AcDbRotatedDimension") 
                (cons 13 (list (car ptmax) (cadr ptmin))) 
                (cons 14 (list (- (car ptmax) 2000) (cadr ptmin))) 
    ) 
  ) 
 
    ) 
  (setvar "osmode" osm) 
  (princ) 
  )

这是最后调试完的，有时好使有时不好使，换个文件执行就出错
运行钱需要建一个“”板轮廓线“”图层，画几个矩形

a117034423 · 发表于 2020-12-11 19:30:01

newer 发表于 2020-12-11 19:23
子程序，主程序里面的具体代码贴下
说下哪个变量有问题

出毛病的是nob函数，函数单独执行都没问题，是不是标注样式的表太长了？

a117034423 · 发表于 2020-12-12 06:50:02

没回复啊，人呢都

xk15c · 发表于 2020-12-15 00:03:14

以学习再学习

账号		自动登录	找回密码
密码			立即注册

[求助] 请教关于主程序子程序调用问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

[求助] 请教关于主程序 子程序调用问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

[求助] 请教关于主程序子程序调用问题