怎么把这个函数中的 entmake 函数改成引用函数

巛丸 · 发表于 2012-9-23 01:07:19

(defun as1()
(setq a13 (nth  0 lst))
   (setq a14 (nth  1 lst))
   (setq a10 (polar  a13 (- (angle a13 a14) (/ pi 2))  jl ))
   (setq a13 (list 13 (car a13)(cadr a13)0))
   (setq a14 (list 14 (car a14)(cadr a14)0))
   (setq a10 (list 10 (car a10)(cadr a10)0))

  (entmake
(list
      '(0 . "DIMENSION")；标注样式
      '(5 . "B2")
      '(100 . "AcDbEntity")
      '(67 . 0) ;对象所在的模型空间
      '(410 . "Model")
      '(8 . "ZDW") ;标注图层
      '(100 . "AcDbDimension")
      '(2 . "*D7")
      a10
      '(12 0.0 0.0 0.0)
      '(70 . 33);标准标志值(位编码值)
         '(1 . "")
      '(71 . 5) ;将公差附在标注文字之后
         '(72 . 1) ;文字中心位置
         '(41 . 1.0) ;比例
   '(210 0.0 0.0 1.0)
   '(3 . "DIMN")
   '(100 . "AcDbAlignedDimension")
      a13
   a14
   '(15 0.0 0.0 0.0)
   '(16 0.0 0.0 0.0)
   '(40 . 0.0);字体高度
   '(50 . 0.0);旋转角度
);endlist
);endentmake
  );endas1

巛丸 · 发表于 2012-9-23 01:08:41

其中 A1O 这个点应该是赋值给  '(12 0.0 0.0 0.0)
其中 A13这个点应该是赋值给  '(15 0.0 0.0 0.0)
其中 A14这个点应该是赋值给  '(16 0.0 0.0 0.0) 吧  我是这样猜测的

巛丸 · 发表于 2012-9-23 01:10:20

本帖最后由巛丸于 2012-9-23 01:20 编辑

拆成两个函数是不是这样拆的以下两个函数

(defun as1()
(setq a13 (nth  0 lst))
   (setq a14 (nth  1 lst))
   (setq a10 (polar  a13 (- (angle a13 a14) (/ pi 2))  jl ))
   (setq a13 (list 13 (car a13)(cadr a13)0))
   (setq a14 (list 14 (car a14)(cadr a14)0))
   (setq a10 (list 10 (car a10)(cadr a10)0))

（setq  x_12 a10
            x_15 a13
            x_16 a14)       (etk_x x_12 x_15 x_16)
)

巛丸 · 发表于 2012-9-23 01:12:14

(defun etk_x (x_12 x_15 x_16 / )
(entmake
(list
      '(0 . "DIMENSION")；标注样式
      '(5 . "B2")
      '(100 . "AcDbEntity")
      '(67 . 0) ;对象所在的模型空间
      '(410 . "Model")
      '(8 . "ZDW") ;标注图层
      '(100 . "AcDbDimension")
      '(2 . "*D7")
         x_12
         '(12 0.0 0.0 0.0)
         '(70 . 33);标准标志值(位编码值)
         '(1 . "")
         '(71 . 5) ;将公差附在标注文字之后
         '(72 . 1) ;文字中心位置
         '(41 . 1.0) ;比例
   '(210 0.0 0.0 1.0)
   '(3 . "DIMN")
   '(100 . "AcDbAlignedDimension")
      x_15
      x_16
   '(15 0.0 0.0 0.0)
   '(16 0.0 0.0 0.0)
   '(40 . 0.0);字体高度
   '(50 . 0.0);旋转角度
);endlist
);endentmake
)

??????????????????//

巛丸 · 发表于 2012-9-23 05:48:15

顶下去睡

巛丸 · 发表于 2012-9-23 14:30:35

再顶下再顶下再顶下

wdq10105 · 发表于 2012-9-24 09:27:04

试试用(cons 15 A13)

巛丸 · 发表于 2012-9-24 11:42:39

wdq10105 发表于 2012-9-24 09:27
试试用(cons 15 A13)

哦我试试

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

怎么把 这个函数中的 entmake 函数改成引用函数

点评

怎么把这个函数中的 entmake 函数改成引用函数