参数化扇形阵列

lanyf · 发表于 2017-6-2 10:40:05

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

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

×

扇形环板矩形阵列
已知扇形的内径、外径，分瓣的个数
按单块的扇形阵列，并按割缝、边距空开
求出外圈的矩形

如何用lisp编程进行呢？
每次仅仅改变必要参数，其他自动完成

newer · 发表于 2017-6-2 10:54:57

1、图片太小，看不清，重新截取个大的
2、原始没处理的图形的图片，和处理后结果的图片，分别截取。
3、附上压缩的DWG（低版本保存），有原始图和处理的结果，图上注明。

lanyf · 发表于 2017-6-2 11:18:48

newer 发表于 2017-6-2 10:54

谢谢提出的建议
更改如下：

图1：是已知的条件【处理前的图】
图2：处理后的图

newer · 发表于 2017-6-2 11:28:51

本帖最后由 newer 于 2017-6-2 11:30 编辑

lanyf 发表于 2017-6-2 11:18

看了图，画图的时候，为什么不把每个扇形画成一个封闭的多段线呢？画图时候组织好数据，才方便以后的工作，包括统计，选择。

搜狗截图20170602112718.png

结果图里面，矩形高 152.9 ，宽 64.08 是根据什么来的？

lanyf · 发表于 2017-6-2 11:32:48

newer 发表于 2017-6-2 11:28

对的，提醒的很对
我这是偷懒了，我是先根据内径、外径，画同心圆
然后画水平线，在根据瓣数，进行圆形阵列，所以未将扇形进行处理

newer · 发表于 2017-6-2 21:10:21

本帖最后由 newer 于 2017-6-2 21:12 编辑

lanyf 发表于 2017-6-2 11:32

从画到生成合成到一块了，试试

(defun c:tt ()
(defun XD::Pnt:TransTemp (pt vec)
(mapcar '+ pt (xdrx_vector_product vec 1.0))
)
(defun _drawcircle ()
(xdrx_setmark)
(setq e1 (xdrx_circle_make cen #xd_var_banshu_innerR)
e2 (xdrx_circle_make cen #xd_var_banshu_outerR)
pts1 (xdrx_getpropertyvalue
e1
"getsamplepoints"
(1+ #xd_var_banshu)
)
pts2 (xdrx_getpropertyvalue
e2
"getsamplepoints"
(1+ #xd_var_banshu)
)
pa1 (xdrx_curve_getparamatpoint e1 (cadr pts1))
pa2 (xdrx_curve_getparamatpoint e2 (cadr pts2))
houdu (- #xd_var_banshu_outerR #xd_var_banshu_innerR)
)
(mapcar '(lambda (x y) (xdrx_line_make x y)) pts1 pts2)
(setq ss (xdrx_getss))
(xdrx_entity_setproperty ss "color" 7)
(setq g1 (xdge::constructor e1)
g2 (xdge::constructor e2)
)
(xdge::setpropertyvalue g1 "setinterval" 0.0 pa1)
(xdge::setpropertyvalue g2 "setinterval" 0.0 pa2)
(setq gl1 (xdge::constructor "kLineseg3d" (car pts1) (car pts2))
gl2 (xdge::constructor "klineseg3d" (cadr pts2) (cadr pts1))
gpL (xdge::constructor "kCompositecrv3d" (list g1 gl1 g2 gl2))
pmid1 (xdge::getpropertyvalue g1 "midpoint")
pmid2 (xdge::getpropertyvalue g2 "midpoint")
temp (xdge::constructor "kLineseg3d" pmid1 pmid2)
pmid (xdge::getpropertyvalue temp "midpoint")
dir (xdrx_curve_getfirstderiv e1 pmid1)
)
(xdge::entity:make gpl)
(xdge::free g1 g2 gl1 gl2 gpl temp)
(xdrx_entity_align
(entlast)
pmid
(xd::pnt:transtemp pmid dir)
pmid
(xd::pnt:transtemp pmid (getvar "ucsxdir"))
)
(entlast)
)
(defun _init ()
(if (not #xd_var_banshu)
(setq #xd_var_banshu 5)
)
(if (not #xd_var_banshu_gap)
(setq #xd_var_banshu_gap 20.0)
)
(if (not #xd_var_banshu_innerR)
(setq #xd_var_banshu_innerR 100.0)
)
(if (not #xd_var_banshu_outerR)
(setq #xd_var_banshu_outerR 130.0)
)
)
(defun _input ()
(if
(setq
val (getint (xdrx_prompt "\n输入瓣数<" #xd_var_banshu ">:" t))
)
(setq #xd_var_banshu val)
)
(if (setq
val
(getreal
(xdrx_prompt "\n输入割缝距离<" #xd_var_banshu_gap ">:" t)
)
)
(setq #xd_var_banshu_gap val)
)
(if (setq val
(getreal
(xdrx_prompt "\n输入内径<" #xd_var_banshu_innerR ">:" t)
)
)
(setq #xd_var_banshu_innerR val)
)
(if (setq val
(getreal
(xdrx_prompt "\n输入外径<" #xd_var_banshu_outerR ">:" t)
)
)
(setq #xd_var_banshu_outerR val)
)
)
(defun _getrec ()
(xdrx_setmark)
(repeat (1- #xd_var_banshu)
(xdrx_entity_copy
e
pmid
(mapcar '+
pmid
(xdrx_vector_product
(getvar "ucsydir")
(* (setq i (1+ i)) (+ houdu #xd_var_banshu_gap))
)
)
)
)
(setq ss (xdrx_getss)
ss (ssadd e ss)
)
(setq box (xdrx_entity_box ss))
(setq box
(xdrx_points_offset #xd_var_banshu_gap (xd::pnts:close box))
)
(xdrx_polyline_make box t)
(ssadd (entlast) ss)
)
;;主程序开始
(xdrx_begin)
(_init)
(_input)
(if (setq cen (getpoint "\n点取圆心<退出>:"))
(progn
(setq e (_drawcircle)
i 0
)
(_getrec)
(XD::Drag:SimpleMove ss "\n插入点:" 5 t)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun XD::Pnt:TransTemp (pt vec) 
    (mapcar '+ pt (xdrx_vector_product vec 1.0)) 
  ) 
  (defun _drawcircle () 
    (xdrx_setmark) 
    (setq e1    (xdrx_circle_make cen #xd_var_banshu_innerR) 
          e2    (xdrx_circle_make cen #xd_var_banshu_outerR) 
          pts1  (xdrx_getpropertyvalue 
                  e1 
                  "getsamplepoints" 
                  (1+ #xd_var_banshu) 
                ) 
          pts2  (xdrx_getpropertyvalue 
                  e2 
                  "getsamplepoints" 
                  (1+ #xd_var_banshu) 
                ) 
          pa1   (xdrx_curve_getparamatpoint e1 (cadr pts1)) 
          pa2   (xdrx_curve_getparamatpoint e2 (cadr pts2)) 
          houdu (- #xd_var_banshu_outerR #xd_var_banshu_innerR) 
    ) 
    (mapcar '(lambda (x y) (xdrx_line_make x y)) pts1 pts2) 
    (setq ss (xdrx_getss)) 
    (xdrx_entity_setproperty ss "color" 7) 
    (setq g1 (xdge::constructor e1) 
          g2 (xdge::constructor e2) 
    ) 
    (xdge::setpropertyvalue g1 "setinterval" 0.0 pa1) 
    (xdge::setpropertyvalue g2 "setinterval" 0.0 pa2) 
    (setq gl1   (xdge::constructor "kLineseg3d" (car pts1) (car pts2)) 
          gl2   (xdge::constructor "klineseg3d" (cadr pts2) (cadr pts1)) 
          gpL   (xdge::constructor "kCompositecrv3d" (list g1 gl1 g2 gl2)) 
          pmid1 (xdge::getpropertyvalue g1 "midpoint") 
          pmid2 (xdge::getpropertyvalue g2 "midpoint") 
          temp  (xdge::constructor "kLineseg3d" pmid1 pmid2) 
          pmid  (xdge::getpropertyvalue temp "midpoint") 
          dir   (xdrx_curve_getfirstderiv e1 pmid1) 
    ) 
    (xdge::entity:make gpl) 
    (xdge::free g1 g2 gl1 gl2 gpl temp) 
    (xdrx_entity_align 
      (entlast) 
      pmid 
      (xd::pnt:transtemp pmid dir) 
      pmid 
      (xd::pnt:transtemp pmid (getvar "ucsxdir")) 
    ) 
    (entlast) 
  ) 
  (defun _init () 
    (if (not #xd_var_banshu) 
      (setq #xd_var_banshu 5) 
    ) 
    (if (not #xd_var_banshu_gap) 
      (setq #xd_var_banshu_gap 20.0) 
    ) 
    (if (not #xd_var_banshu_innerR) 
      (setq #xd_var_banshu_innerR 100.0) 
    ) 
    (if (not #xd_var_banshu_outerR) 
      (setq #xd_var_banshu_outerR 130.0) 
    ) 
  ) 
  (defun _input () 
    (if 
      (setq 
        val (getint (xdrx_prompt "\n输入瓣数<" #xd_var_banshu ">:" t)) 
      ) 
       (setq #xd_var_banshu val) 
    ) 
    (if (setq 
          val 
           (getreal 
             (xdrx_prompt "\n输入割缝距离<" #xd_var_banshu_gap ">:" t) 
           ) 
        ) 
      (setq #xd_var_banshu_gap val) 
    ) 
    (if (setq val 
               (getreal 
                 (xdrx_prompt "\n输入内径<" #xd_var_banshu_innerR ">:" t) 
               ) 
        ) 
      (setq #xd_var_banshu_innerR val) 
    ) 
    (if (setq val 
               (getreal 
                 (xdrx_prompt "\n输入外径<" #xd_var_banshu_outerR ">:" t) 
               ) 
        ) 
      (setq #xd_var_banshu_outerR val) 
    ) 
  ) 
  (defun _getrec () 
    (xdrx_setmark) 
    (repeat (1- #xd_var_banshu) 
      (xdrx_entity_copy 
        e 
        pmid 
        (mapcar '+ 
                pmid 
                (xdrx_vector_product 
                  (getvar "ucsydir") 
                  (* (setq i (1+ i)) (+ houdu #xd_var_banshu_gap)) 
                ) 
        ) 
      ) 
    ) 
    (setq ss (xdrx_getss) 
          ss (ssadd e ss) 
    ) 
    (setq box (xdrx_entity_box ss)) 
    (setq box 
           (xdrx_points_offset #xd_var_banshu_gap (xd::pnts:close box)) 
    ) 
    (xdrx_polyline_make box t) 
    (ssadd (entlast) ss) 
  ) 
  ;;主程序开始 
  (xdrx_begin) 
  (_init) 
  (_input) 
  (if (setq cen (getpoint "\n点取圆心<退出>:")) 
    (progn 
      (setq e (_drawcircle) 
            i 0 
      ) 
      (_getrec) 
      (XD::Drag:SimpleMove ss "\n插入点:" 5 t) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2017-6-2 21:58:03

本帖最后由 newer 于 2017-6-2 22:03 编辑

加个函数，让大样图反过来，支持UCS

搜狗截图20170602215808.png

(defun c:tt ()
(defun XD::Pnt:TransTemp (pt vec)
(mapcar '+ pt (xdrx_vector_product vec 1.0))
)
(defun _drawcircle ()
(xdrx_setmark)
(setq e1 (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_innerR)
e2 (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_outerR)
pts1 (xdrx_getpropertyvalue
e1
"getsamplepoints"
(1+ #xd_var_banshu)
)
pts2 (xdrx_getpropertyvalue
e2
"getsamplepoints"
(1+ #xd_var_banshu)
)
pa1 (xdrx_curve_getparamatpoint e1 (cadr pts1))
pa2 (xdrx_curve_getparamatpoint e2 (cadr pts2))
houdu (- #xd_var_banshu_outerR #xd_var_banshu_innerR)
)
(mapcar '(lambda (x y) (xdrx_line_make x y)) pts1 pts2)
(setq ss (xdrx_getss))
(xdrx_entity_setproperty ss "color" 7)
(setq g1 (xdge::constructor e1)
g2 (xdge::constructor e2)
)
(xdge::setpropertyvalue g1 "setinterval" 0.0 pa1)
(xdge::setpropertyvalue g2 "setinterval" 0.0 pa2)
(setq gl1 (xdge::constructor "kLineseg3d" (car pts1) (car pts2))
gl2 (xdge::constructor "klineseg3d" (cadr pts2) (cadr pts1))
gpL (xdge::constructor "kCompositecrv3d" (list g1 gl1 g2 gl2))
pmid1 (xdge::getpropertyvalue g1 "midpoint")
pmid2 (xdge::getpropertyvalue g2 "midpoint")
temp (xdge::constructor "kLineseg3d" pmid1 pmid2)
pmid (xdge::getpropertyvalue temp "midpoint")
dir (xdrx_vector_negate (xdrx_curve_getfirstderiv e1 pmid1))
)
(xdge::entity:make gpl)
(xdge::free g1 g2 gl1 gl2 gpl temp)
(xdrx_entity_align
(entlast)
pmid
(xd::pnt:transtemp pmid dir)
pmid
(xd::pnt:transtemp pmid (getvar "ucsxdir"))
)
(entlast)
)
(defun _init ()
(if (not #xd_var_banshu)
(setq #xd_var_banshu 5)
)
(if (not #xd_var_banshu_gap)
(setq #xd_var_banshu_gap 20.0)
)
(if (not #xd_var_banshu_innerR)
(setq #xd_var_banshu_innerR 100.0)
)
(if (not #xd_var_banshu_outerR)
(setq #xd_var_banshu_outerR 130.0)
)
)
(defun _input ()
(if
(setq
val (getint (xdrx_prompt "\n输入瓣数<" #xd_var_banshu ">:" t))
)
(setq #xd_var_banshu val)
)
(if (setq
val
(getreal
(xdrx_prompt "\n输入割缝距离<" #xd_var_banshu_gap ">:" t)
)
)
(setq #xd_var_banshu_gap val)
)
(if (setq val
(getreal
(xdrx_prompt "\n输入内径<" #xd_var_banshu_innerR ">:" t)
)
)
(setq #xd_var_banshu_innerR val)
)
(if (setq val
(getreal
(xdrx_prompt "\n输入外径<" #xd_var_banshu_outerR ">:" t)
)
)
(setq #xd_var_banshu_outerR val)
)
)
(defun _getrec ()
(xdrx_setmark)
(repeat (1- #xd_var_banshu)
(xdrx_entity_copy
e
pmid
(mapcar '+
pmid
(xdrx_vector_product
(getvar "ucsydir")
(* (setq i (1+ i)) (+ houdu #xd_var_banshu_gap))
)
)
)
)
(setq ss (xdrx_getss)
ss (ssadd e ss)
)
(setq box (xdrx_entity_box ss))
(setq box
(xdrx_points_offset #xd_var_banshu_gap (xd::pnts:close box))
)
(xdrx_polyline_make (xd::pnts:ucs2wcs box) t)
(ssadd (entlast) ss)
)
;;主程序开始
(xdrx_begin)
(_init)
(_input)
(if (setq cen (getpoint "\n点取圆心<退出>:"))
(progn
(setq e (_drawcircle)
i 0
)
(_getrec)
(XD::Drag:SimpleMove ss "\n插入点:" 5 t)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (defun XD::Pnt:TransTemp (pt vec) 
    (mapcar '+ pt (xdrx_vector_product vec 1.0)) 
  ) 
  (defun _drawcircle () 
    (xdrx_setmark) 
    (setq e1    (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_innerR) 
          e2    (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_outerR) 
          pts1  (xdrx_getpropertyvalue 
                  e1 
                  "getsamplepoints" 
                  (1+ #xd_var_banshu) 
                ) 
          pts2  (xdrx_getpropertyvalue 
                  e2 
                  "getsamplepoints" 
                  (1+ #xd_var_banshu) 
                ) 
          pa1   (xdrx_curve_getparamatpoint e1 (cadr pts1)) 
          pa2   (xdrx_curve_getparamatpoint e2 (cadr pts2)) 
          houdu (- #xd_var_banshu_outerR #xd_var_banshu_innerR) 
    ) 
    (mapcar '(lambda (x y) (xdrx_line_make x y)) pts1 pts2) 
    (setq ss (xdrx_getss)) 
    (xdrx_entity_setproperty ss "color" 7) 
    (setq g1 (xdge::constructor e1) 
          g2 (xdge::constructor e2) 
    ) 
    (xdge::setpropertyvalue g1 "setinterval" 0.0 pa1) 
    (xdge::setpropertyvalue g2 "setinterval" 0.0 pa2) 
    (setq gl1   (xdge::constructor "kLineseg3d" (car pts1) (car pts2)) 
          gl2   (xdge::constructor "klineseg3d" (cadr pts2) (cadr pts1)) 
          gpL   (xdge::constructor "kCompositecrv3d" (list g1 gl1 g2 gl2)) 
          pmid1 (xdge::getpropertyvalue g1 "midpoint") 
          pmid2 (xdge::getpropertyvalue g2 "midpoint") 
          temp  (xdge::constructor "kLineseg3d" pmid1 pmid2) 
          pmid  (xdge::getpropertyvalue temp "midpoint") 
          dir   (xdrx_vector_negate (xdrx_curve_getfirstderiv e1 pmid1)) 
    ) 
    (xdge::entity:make gpl) 
    (xdge::free g1 g2 gl1 gl2 gpl temp) 
    (xdrx_entity_align 
      (entlast) 
      pmid 
      (xd::pnt:transtemp pmid dir) 
      pmid 
      (xd::pnt:transtemp pmid (getvar "ucsxdir")) 
    ) 
    (entlast) 
  ) 
  (defun _init () 
    (if (not #xd_var_banshu) 
      (setq #xd_var_banshu 5) 
    ) 
    (if (not #xd_var_banshu_gap) 
      (setq #xd_var_banshu_gap 20.0) 
    ) 
    (if (not #xd_var_banshu_innerR) 
      (setq #xd_var_banshu_innerR 100.0) 
    ) 
    (if (not #xd_var_banshu_outerR) 
      (setq #xd_var_banshu_outerR 130.0) 
    ) 
  ) 
  (defun _input () 
    (if 
      (setq 
        val (getint (xdrx_prompt "\n输入瓣数<" #xd_var_banshu ">:" t)) 
      ) 
       (setq #xd_var_banshu val) 
    ) 
    (if (setq 
          val 
           (getreal 
             (xdrx_prompt "\n输入割缝距离<" #xd_var_banshu_gap ">:" t) 
           ) 
        ) 
      (setq #xd_var_banshu_gap val) 
    ) 
    (if (setq val 
               (getreal 
                 (xdrx_prompt "\n输入内径<" #xd_var_banshu_innerR ">:" t) 
               ) 
        ) 
      (setq #xd_var_banshu_innerR val) 
    ) 
    (if (setq val 
               (getreal 
                 (xdrx_prompt "\n输入外径<" #xd_var_banshu_outerR ">:" t) 
               ) 
        ) 
      (setq #xd_var_banshu_outerR val) 
    ) 
  ) 
  (defun _getrec () 
    (xdrx_setmark) 
    (repeat (1- #xd_var_banshu) 
      (xdrx_entity_copy 
        e 
        pmid 
        (mapcar '+ 
                pmid 
                (xdrx_vector_product 
                  (getvar "ucsydir") 
                  (* (setq i (1+ i)) (+ houdu #xd_var_banshu_gap)) 
                ) 
        ) 
      ) 
    ) 
    (setq ss (xdrx_getss) 
          ss (ssadd e ss) 
    ) 
    (setq box (xdrx_entity_box ss)) 
    (setq box 
           (xdrx_points_offset #xd_var_banshu_gap (xd::pnts:close box)) 
    ) 
    (xdrx_polyline_make (xd::pnts:ucs2wcs box) t) 
    (ssadd (entlast) ss) 
  ) 
  ;;主程序开始 
  (xdrx_begin) 
  (_init) 
  (_input) 
  (if (setq cen (getpoint "\n点取圆心<退出>:")) 
    (progn 
      (setq e (_drawcircle) 
            i 0 
      ) 
      (_getrec) 
      (XD::Drag:SimpleMove ss "\n插入点:" 5 t) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

lanyf · 发表于 2017-6-2 22:06:59

newer 发表于 2017-6-2 21:10

谢谢版主，测试了一下，基本可以的，代码还没来得及看呢，谢谢了
不过整列的时候，扇形与扇形的最短的距离怎么设置的呢
如下图中的13.49这个尺寸，这个是否也可像边距一样，由用户手工输入后确定呢？

newer · 发表于 2017-6-2 22:14:34

本帖最后由 newer 于 2017-6-2 22:16 编辑

lanyf 发表于 2017-6-2 22:06

边缘控制间距是必须的？程序是用中间点处的距离等于割缝的距离控制的。

如果想边缘控制，用下三角函数，换算成中间间距值就行了。不过，我认为中间间距控制就足够了吧。

lanyf · 发表于 2017-6-2 22:22:08

newer 发表于 2017-6-2 22:14

圆心的中心距离=边距，这样子的话，每件扇形间的最小距离就无法控制了
扇形间的最小距离和边距是两个不同的控制参数

我先看看程序吧，是否可以将中心距离改一下

谢谢版主了，有不懂得地方我再请教了

newer · 发表于 2017-6-2 22:31:37

lanyf 发表于 2017-6-2 22:22

行，你试试改改代码吧，现在是弧线中间地方，间距等于输入的割缝的距离。你把它变小些（找出和边线距离的关系）。
不清楚的地方，再发帖吧。

lanyf · 发表于 2017-6-3 10:36:42

本帖最后由 lanyf 于 2017-6-3 10:38 编辑

newer 发表于 2017-6-2 22:31

newer版主，我看了一下代码，由于我是刚刚接触
以前看的书都是讲的Auto lisp Visual lisp，这个是用XDRX API写的，很多地方不是很懂，能帮我解释一下吗

代码在代码的框里怎么提交不了？
先直接粘在网页里吧

(defun _drawcircle ()
(xdrx_setmark);;;创建选择集开始
(setq e1 (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_innerR);画圆（内径）
      e2 (xdrx_circle_make (trans cen 1 0) #xd_var_banshu_outerR);画圆（外径）
      pts1  (xdrx_getpropertyvalue
               e1
               "getsamplepoints"
               (1+ #xd_var_banshu);;;为什么用瓣数+1啊
            );;什么作用,得到什么样子的属性啊，是点的坐标吗？
      pts2  (xdrx_getpropertyvalue
               e2
               "getsamplepoints"
               (1+ #xd_var_banshu)
            )
      pa1 (xdrx_curve_getparamatpoint e1 (cadr pts1));;;得到内圆上面的哪个点啊？
      pa2 (xdrx_curve_getparamatpoint e2 (cadr pts2))
      houdu (- #xd_var_banshu_outerR #xd_var_banshu_innerR)
)
(mapcar '(lambda (x y) (xdrx_line_make x y)) pts1 pts2);;这是画的哪根线呢？能在CAD里面一步步执行，执行到这看一画了什么吗？
(setq ss (xdrx_getss));;;创建选择集结束
(xdrx_entity_setproperty ss "color" 7);什么作用啊，为什么要将"color”设置为7呢？
(setq g1 (xdge::constructor e1);;;将内圆构造实体？？构造实体什么作用啊？为什么构造实体？方便修改或取属性吗？
      g2 (xdge::constructor e2)
)
(xdge::setpropertyvalue g1 "setinterval" 0.0 pa1);;;什么作用？
(xdge::setpropertyvalue g2 "setinterval" 0.0 pa2)
(setq gl1 (xdge::constructor "kLineseg3d" (car pts1) (car pts2))
      gl2 (xdge::constructor "klineseg3d" (cadr pts2) (cadr pts1))
      gpL (xdge::constructor "kCompositecrv3d" (list g1 gl1 g2 gl2))
      pmid1 (xdge::getpropertyvalue g1 "midpoint");;;圆的中点吗？
      pmid2 (xdge::getpropertyvalue g2 "midpoint")
      temp  (xdge::constructor "kLineseg3d" pmid1 pmid2)
      pmid  (xdge::getpropertyvalue temp "midpoint")
      dir (xdrx_vector_negate (xdrx_curve_getfirstderiv e1 pmid1))
)
(xdge::entity:make gpl)
(xdge::free g1 g2 gl1 gl2 gpl temp)
(xdrx_entity_align
   (entlast)
   pmid
   (xd::pnt:transtemp pmid dir)
   pmid
   (xd::pnt:transtemp pmid (getvar "ucsxdir"))
)
(entlast)
  )

liunian0524 · 发表于 2017-6-3 16:51:13

路过帮顶..

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

[求助] 参数化 扇形阵列

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

[求助] 参数化扇形阵列