[已解决]申请指定间距排孔程序

pezyl · 发表于 2017-6-15 12:14:27

newer 发表于 2017-6-15 12:04

提示的是安装目录，且目录下有6.12号的文件

newer · 发表于 2017-6-15 12:21:54

pezyl 发表于 2017-6-15 12:14

知道原因了，8楼代码修改了，你重新拷贝回去执行看看。

pezyl · 发表于 2017-6-15 12:46:04

本帖最后由 pezyl 于 2017-6-15 13:37 编辑

newer 发表于 2017-6-15 12:21

好了好了，谢谢N版耐心帮忙，谢谢，来天津的话请您喝酒吃饭，嘿嘿。
1、尽可能多的支持各种曲线要怎么改？
2、代码拾取到曲线后不需要空格或者回车确认了，选中某一个图元即为确认，操作完一条曲线程序还可以接着点选操作
3、进行到选方向这一步，按ESC取消不了，直接也画出了孔
4、现在的起点终点是由线属性决定的，能不能鼠标点选时靠哪个端点近就把此端点当作曲线的起点

newer · 发表于 2017-6-15 13:58:43

本帖最后由 newer 于 2017-6-15 14:00 编辑

pezyl 发表于 2017-6-15 12:46

能用就好，

你都要适合什么曲线？对于不是直线的，你鼠标确定镜像方向会有困惑，可能就不能通过鼠标来确定方向了。

各种样的，贴几个图上来。

pezyl · 发表于 2017-6-15 14:51:32

本帖最后由 pezyl 于 2017-6-15 14:53 编辑

newer 发表于 2017-6-15 13:58

1、直线，多段线，弧线，样条曲线
2、绿色孔和洋红色孔就是方向选择不一样的区别，不是镜像，而是偏移在曲线的哪一侧
3、选择曲线时，点选位置离曲线两个端点哪个近就当作曲线起点开始排孔

newer · 发表于 2017-6-15 15:13:07

pezyl 发表于 2017-6-15 14:51

下面图片的箭头位置的地方，上下不对了吧，两边的连线应该垂直于曲线吧

QQ截图20170615151045.png

pezyl · 发表于 2017-6-15 15:23:13

newer 发表于 2017-6-15 15:13

恩恩，我画的有偏差了，N版好细心，应该是连线垂直曲线的

newer · 发表于 2017-6-15 17:36:43

本帖最后由 newer 于 2017-6-15 21:06 编辑

pezyl 发表于 2017-6-15 15:23

重写了，拷贝下面回去试试

1、支持LINE,ARC,LWPOLYLINE,CIRCLE,SPLINE,ELLIPSE
2、支持取消3、拾取点靠近哪边，从哪边开始
4、支持选中实体后不用回车

如果成了，麻烦做下各种曲线的不同条件的动画贴上来。

(defun c:tt (/ dist e epa ept g i info key len msg my_err p pa pt pts pts2
pts3 spa spt ss temp test tf v1 v2 val x y
)
(defun _init ()
(if (not #xd_var_bukong_fs)
(setq #xd_var_bukong_fs "0")
)
(if (not #xd_var_bukong_yuankong)
(setq #xd_var_bukong_yuankong "0")
)
(if (not #xd_var_bukong_start)
(setq #xd_var_bukong_start 50)
)
(if (not #xd_var_bukong_end)
(setq #xd_var_bukong_end 50)
)
(if (not #xd_var_bukong_radius)
(setq #xd_var_bukong_radius 10)
)
(if (not #xd_var_bukong_konggap)
(setq #xd_var_bukong_konggap 50)
)
(if (not #xd_var_bukong_offset)
(setq #xd_var_bukong_offset 30)
)
(if (not #xd_var_bukong_divide)
(setq #xd_var_bukong_divide 3)
)
(if (not #xd_var_bukong_dist)
(setq #xd_var_bukong_dist 500)
)
)
(defun _keyword (key)
(cond
((= key "B")
(if (= #xd_var_bukong_fs "0")
(if (setq val (getreal (xdrx_prompt "\n圆孔距离<"
#xd_var_bukong_dist ">:" t
)
)
)
(setq #xd_var_bukong_dist val)
)
(if (setq val (getint (xdrx_prompt "\n等分数<"
#xd_var_bukong_divide ">:" t
)
)
)
(setq #xd_var_bukong_divide val)
)
)
)
((= key "Y")
(xdrx_initget "0 1")
(if (setq val (getkword (xdrx_prompt "\n圆孔样式[单圆(0)/双圆(1)]<"
(if (= #xd_var_bukong_yuankong
"0"
)
"0"
"1"
) ">:" t
)
)
)
(setq #xd_var_bukong_yuankong val)
)
)
((= key "S")
(if (setq val (getreal (xdrx_prompt "\n起点距离<"
#xd_var_bukong_start ">:" t
)
)
)
(setq #xd_var_bukong_start val)
)
)
((= key "E")
(if (setq val (getreal (xdrx_prompt "\n端点距离<" #xd_var_bukong_end
">:" t
)
)
)
(setq #xd_var_bukong_end val)
)
)
((= key "D")
(if (= #xd_var_bukong_yuankong "1")
(progn
(if (setq val (getreal (xdrx_prompt "\n双孔间距<"
#xd_var_bukong_konggap ">:"
t
)
)
)
(setq #xd_var_bukong_konggap val)
)
)
(princ "\n当前样式是单圆，不能设置孔距.")
)
)
((= key "H")
(if (setq val (getreal (xdrx_prompt "\n圆偏移线距离<"
#xd_var_bukong_offset ">:" t
)
)
)
(setq #xd_var_bukong_offset val)
)
)
((= key "O")
(if (setq val (getreal (xdrx_prompt "\n孔径<" #xd_var_bukong_radius
">:" t
)
)
)
(setq #xd_var_bukong_radius val)
)
)
)
(_prompt)
)
(defun _prompt ()
(xdrx_initget "B Y S E O D H")
(xdrx_prompt "\n当前设置: *分布-按" (if (= #xd_var_bukong_fs "0")
(xdrx_prompt "距离*[/圆孔距离("
#xd_var_bukong_dist
")" t
)
(xdrx_prompt "等分*[等分数(" #xd_var_bukong_divide
")" t
)
) "/圆孔样式[" (if (= #xd_var_bukong_yuankong
"0"
)
"单圆"
"双圆"
) ")/起点距离("
#xd_var_bukong_start ")/终点距离(" #xd_var_bukong_end
")/偏移距离(" #xd_var_bukong_offset ")/孔径("
#xd_var_bukong_radius ")]"
)
)
(defun _initget ()
(if (= #xd_var_bukong_fs "0")
(setq info "\n拾取直线[距离(B)/圆孔(Y)/起点(S)/终点(E)/孔径(O)/孔距(D)/偏移(H)]<退出>:")
(setq info "\n拾取直线[等分数(B)/圆孔(Y)/起点(S)/终点(E)/孔径(O)/孔距(D)/偏移(H)]<退出>:")
)
(xdrx_initget "B Y S E O D H")
(setq tf t)
(while (and
tf
(setq e (xdrx_entsel info '((0 . "LINE,LWPOLYLINE,ARC,SPLINE,CIRCLE,ELLIPSE"))))
)
(cond
((= (type e) 'STR)
(_keyword e)
)
((= (type e) 'LIST)
(setq tf nil)
)
)
)
e
)
(defun _getpts (/ i pa p pts)
(setq i 0)
(xdge::entity:make g)
(while (setq p (xdrx_curve_getpointatdist (entlast) (* i #xd_var_bukong_dist)))
(setq pts (cons p pts)
i (1+ i)
)
)
(setq pts (cons (xdrx_curve_getendpoint (entlast)) pts))
(xdrx_entity_delete (entlast))
(reverse pts)
)
(defun _getpoints ()
(setq g (xdge::constructor e)
len (xdge::getpropertyvalue g "length")
test (xdge::getpropertyvalue g "paramof" pt)
spa (xdge::getpropertyvalue g "paramof" (setq spt
(xdrx_curve_getpointatdist e #xd_var_bukong_start)
)
)
epa (xdge::getpropertyvalue g "paramof" (setq ept
(xdrx_curve_getpointatdist e
(- len #xd_var_bukong_end)
)
)
)
)
(if (> (xdrx_curve_getdistatpoint e pt) (/ len 2.0))
(progn
(setq temp spa
spa epa
epa temp
)
(xdge::setpropertyvalue g "reverseparam")
)
)
(xdge::setpropertyvalue g "setinterval" spa epa)
(if (= #xd_var_bukong_fs "0")
(progn
(setq pts (_getpts))
)
(progn
(setq pts (xdge::getpropertyvalue g "getsamplepoints" (1+ #xd_var_bukong_divide)))
)
)
(xdge::free g)
pts
)
(defun _drawcircle (pts /)
(defun _drawcircle1 ()
(xdrx_setmark)
(mapcar
'(lambda (x)
(setq v1 (xdrx_curve_getfirstderiv e x)
v2 (xdrx_vector_perpvector v1)
dist (xdrx_curve_getdistatpoint e x)
)
(if (= #xd_var_bukong_yuankong "1")
(progn
(setq pts2 (list (xdrx_curve_getpointatdist e (- dist
(/ #xd_var_bukong_konggap
2.0
)
)
) (xdrx_curve_getpointatdist e (+ dist
(/ #xd_var_bukong_konggap
2.0
)
)
)
)
)
)
(progn
(setq pts2 (list x))
)
)
(mapcar
'(lambda (y)
(xdrx_circle_make (mapcar
'+
y
(xdrx_vector_product v2 (if (=
(rem i 2)
1
)
(- #xd_var_bukong_offset)
#xd_var_bukong_offset
)
)
) #xd_var_bukong_radius
)
)
pts2
)
pts3
)
pts
)
(setq ss (xdrx_getss))
)
(setq i 0)
(setq ss (_drawcircle1))
(princ "\n")
(while (and
(xdrx_initget "F")
(setq tf (getkword "\r确定方向[翻转(F)]<结束>:"))
)
(cond
((and
(= (type tf) 'STR)
(= tf "F")
)
(xdrx_entity_delete ss)
(setq i (1+ i))
(_drawcircle1)
)
)
)
)
(defun my_err (msg)
(princ (strcat "\nERROR:" msg))
(xdrx_entity_delete ss)
(setq *error* nil)
(xdrx_end)
)
(xdrx_begin)
(setq *error* my_err)
(xdrx_initget "0 1")
(_init)
(if (setq val (getkword (xdrx_prompt "\n输入分布方式[距离(0)/等分(1)]<"
#xd_var_bukong_fs ">:" t
)
)
)
(setq #xd_var_bukong_fs val)
)
(_prompt)
(if (setq e (_initget))
(progn
(setq pt (cadr e)
e (car e)
)
(setq pts (_getpoints))
(setq ss (_drawcircle pts))
)
)
(setq *error* nil)
(xdrx_end)
(princ)
)

(defun c:tt (/ dist e epa ept g i info key len msg my_err p pa pt pts pts2 
               pts3 spa spt ss temp test tf v1 v2 val x y 
            ) 
  (defun _init () 
    (if (not #xd_var_bukong_fs) 
      (setq #xd_var_bukong_fs "0") 
    ) 
    (if (not #xd_var_bukong_yuankong) 
      (setq #xd_var_bukong_yuankong "0") 
    ) 
    (if (not #xd_var_bukong_start) 
      (setq #xd_var_bukong_start 50) 
    ) 
    (if (not #xd_var_bukong_end) 
      (setq #xd_var_bukong_end 50) 
    ) 
    (if (not #xd_var_bukong_radius) 
      (setq #xd_var_bukong_radius 10) 
    ) 
    (if (not #xd_var_bukong_konggap) 
      (setq #xd_var_bukong_konggap 50) 
    ) 
    (if (not #xd_var_bukong_offset) 
      (setq #xd_var_bukong_offset 30) 
    ) 
    (if (not #xd_var_bukong_divide) 
      (setq #xd_var_bukong_divide 3) 
    ) 
    (if (not #xd_var_bukong_dist) 
      (setq #xd_var_bukong_dist 500) 
    ) 
  ) 
  (defun _keyword (key) 
    (cond 
      ((= key "B") 
        (if (= #xd_var_bukong_fs "0") 
          (if (setq val (getreal (xdrx_prompt "\n圆孔距离<" 
                                              #xd_var_bukong_dist ">:" t 
                                 ) 
                        ) 
              ) 
            (setq #xd_var_bukong_dist val) 
          ) 
          (if (setq val (getint (xdrx_prompt "\n等分数<" 
                                             #xd_var_bukong_divide ">:" t 
                                ) 
                        ) 
              ) 
            (setq #xd_var_bukong_divide val) 
          ) 
        ) 
      ) 
      ((= key "Y") 
        (xdrx_initget "0 1") 
        (if (setq val (getkword (xdrx_prompt "\n圆孔样式[单圆(0)/双圆(1)]<" 
                                             (if (= #xd_var_bukong_yuankong 
                                                    "0" 
                                                 ) 
                                               "0" 
                                               "1" 
                                             ) ">:" t 
                                ) 
                      ) 
            ) 
          (setq #xd_var_bukong_yuankong val) 
        ) 
      ) 
      ((= key "S") 
        (if (setq val (getreal (xdrx_prompt "\n起点距离<" 
                                            #xd_var_bukong_start ">:" t 
                               ) 
                      ) 
            ) 
          (setq #xd_var_bukong_start val) 
        ) 
      ) 
      ((= key "E") 
        (if (setq val (getreal (xdrx_prompt "\n端点距离<" #xd_var_bukong_end 
                                            ">:" t 
                               ) 
                      ) 
            ) 
          (setq #xd_var_bukong_end val) 
        ) 
      ) 
      ((= key "D") 
        (if (= #xd_var_bukong_yuankong "1") 
          (progn 
            (if (setq val (getreal (xdrx_prompt "\n双孔间距<" 
                                                #xd_var_bukong_konggap ">:" 
                                                t 
                                   ) 
                          ) 
                ) 
              (setq #xd_var_bukong_konggap val) 
            ) 
          ) 
          (princ "\n当前样式是单圆，不能设置孔距.") 
        ) 
      ) 
      ((= key "H") 
        (if (setq val (getreal (xdrx_prompt "\n圆偏移线距离<" 
                                            #xd_var_bukong_offset ">:" t 
                               ) 
                      ) 
            ) 
          (setq #xd_var_bukong_offset val) 
        ) 
      ) 
      ((= key "O") 
        (if (setq val (getreal (xdrx_prompt "\n孔径<" #xd_var_bukong_radius 
                                            ">:" t 
                               ) 
                      ) 
            ) 
          (setq #xd_var_bukong_radius val) 
        ) 
      ) 
    ) 
    (_prompt) 
  ) 
  (defun _prompt () 
    (xdrx_initget "B Y S E O D H") 
    (xdrx_prompt "\n当前设置: *分布-按" (if (= #xd_var_bukong_fs "0") 
                                          (xdrx_prompt "距离*[/圆孔距离(" 
                                                       #xd_var_bukong_dist 
                                                       ")" t 
                                          ) 
                                          (xdrx_prompt "等分*[等分数(" #xd_var_bukong_divide 
                                                       ")" t 
                                          ) 
                                        ) "/圆孔样式[" (if (= #xd_var_bukong_yuankong 
                                                              "0" 
                                                           ) 
                                                         "单圆" 
                                                         "双圆" 
                                                       ) ")/起点距离(" 
                 #xd_var_bukong_start ")/终点距离(" #xd_var_bukong_end 
                 ")/偏移距离(" #xd_var_bukong_offset ")/孔径(" 
                 #xd_var_bukong_radius ")]" 
    ) 
  ) 
  (defun _initget () 
    (if (= #xd_var_bukong_fs "0") 
      (setq info "\n拾取直线[距离(B)/圆孔(Y)/起点(S)/终点(E)/孔径(O)/孔距(D)/偏移(H)]<退出>:") 
      (setq info "\n拾取直线[等分数(B)/圆孔(Y)/起点(S)/终点(E)/孔径(O)/孔距(D)/偏移(H)]<退出>:") 
    ) 
    (xdrx_initget "B Y S E O D H") 
    (setq tf t) 
    (while (and 
             tf 
             (setq e (xdrx_entsel info '((0 . "LINE,LWPOLYLINE,ARC,SPLINE,CIRCLE,ELLIPSE")))) 
           ) 
      (cond 
        ((= (type e) 'STR) 
          (_keyword e) 
        ) 
        ((= (type e) 'LIST) 
          (setq tf nil) 
        ) 
      ) 
    ) 
    e 
  ) 
  (defun _getpts (/ i pa p pts) 
    (setq i 0) 
    (xdge::entity:make g) 
    (while (setq p (xdrx_curve_getpointatdist (entlast) (* i #xd_var_bukong_dist))) 
      (setq pts (cons p pts) 
            i (1+ i) 
      ) 
    ) 
    (setq pts (cons (xdrx_curve_getendpoint (entlast)) pts)) 
    (xdrx_entity_delete (entlast)) 
    (reverse pts) 
  ) 
  (defun _getpoints () 
    (setq g (xdge::constructor e) 
          len (xdge::getpropertyvalue g "length") 
          test (xdge::getpropertyvalue g "paramof" pt) 
          spa (xdge::getpropertyvalue g "paramof" (setq spt 
                                                        (xdrx_curve_getpointatdist e #xd_var_bukong_start) 
                                                  ) 
              ) 
          epa (xdge::getpropertyvalue g "paramof" (setq ept 
                                                        (xdrx_curve_getpointatdist e 
                                                                                   (- len #xd_var_bukong_end) 
                                                        ) 
                                                  ) 
              ) 
    ) 
    (if (> (xdrx_curve_getdistatpoint e pt) (/ len 2.0)) 
      (progn 
        (setq temp spa 
              spa epa 
              epa temp 
        ) 
        (xdge::setpropertyvalue g "reverseparam") 
      ) 
    ) 
    (xdge::setpropertyvalue g "setinterval" spa epa) 
    (if (= #xd_var_bukong_fs "0") 
      (progn 
        (setq pts (_getpts)) 
      ) 
      (progn 
        (setq pts (xdge::getpropertyvalue g "getsamplepoints" (1+ #xd_var_bukong_divide))) 
      ) 
    ) 
    (xdge::free g) 
    pts 
  ) 
  (defun _drawcircle (pts /) 
    (defun _drawcircle1 () 
      (xdrx_setmark) 
      (mapcar 
        '(lambda (x) 
           (setq v1 (xdrx_curve_getfirstderiv e x) 
                 v2 (xdrx_vector_perpvector v1) 
                 dist (xdrx_curve_getdistatpoint e x) 
           ) 
           (if (= #xd_var_bukong_yuankong "1") 
             (progn 
               (setq pts2 (list (xdrx_curve_getpointatdist e (- dist 
                                                                (/ #xd_var_bukong_konggap 
                                                                   2.0 
                                                                ) 
                                                             ) 
                                ) (xdrx_curve_getpointatdist e (+ dist 
                                                                  (/ #xd_var_bukong_konggap 
                                                                     2.0 
                                                                  ) 
                                                               ) 
                                  ) 
                          ) 
               ) 
             ) 
             (progn 
               (setq pts2 (list x)) 
             ) 
           ) 
           (mapcar 
             '(lambda (y) 
                (xdrx_circle_make (mapcar 
                                    '+ 
                                    y 
                                    (xdrx_vector_product v2 (if (= 
                                                                   (rem i 2) 
                                                                   1 
                                                                ) 
                                                              (- #xd_var_bukong_offset) 
                                                              #xd_var_bukong_offset 
                                                            ) 
                                    ) 
                                  ) #xd_var_bukong_radius 
                ) 
              ) 
             pts2 
           ) 
           pts3 
         ) 
        pts 
      ) 
      (setq ss (xdrx_getss)) 
    ) 
    (setq i 0) 
    (setq ss (_drawcircle1)) 
    (princ "\n") 
    (while (and 
             (xdrx_initget "F") 
             (setq tf (getkword "\r确定方向[翻转(F)]<结束>:")) 
           ) 
      (cond 
        ((and 
           (= (type tf) 'STR) 
           (= tf "F") 
         ) 
          (xdrx_entity_delete ss) 
          (setq i (1+ i)) 
          (_drawcircle1) 
        ) 
      ) 
    ) 
  ) 
  (defun my_err (msg) 
    (princ (strcat "\nERROR:" msg)) 
    (xdrx_entity_delete ss) 
    (setq *error* nil) 
    (xdrx_end) 
  ) 
  (xdrx_begin) 
  (setq *error* my_err) 
  (xdrx_initget "0 1") 
  (_init) 
  (if (setq val (getkword (xdrx_prompt "\n输入分布方式[距离(0)/等分(1)]<" 
                                       #xd_var_bukong_fs ">:" t 
                          ) 
                ) 
      ) 
    (setq #xd_var_bukong_fs val) 
  ) 
  (_prompt) 
  (if (setq e (_initget)) 
    (progn 
      (setq pt (cadr e) 
            e (car e) 
      ) 
      (setq pts (_getpoints)) 
      (setq ss (_drawcircle pts)) 
    ) 
  ) 
  (setq *error* nil) 
  (xdrx_end) 
  (princ) 
)

pezyl · 发表于 2017-6-15 19:51:26

本帖最后由 pezyl 于 2017-6-15 19:54 编辑

newer 发表于 2017-6-15 17:36

运行不起来，到了拾取直线的时候，点选任何曲线都提示：ERROR:参数类型错误: numberp: nil
好像是到这步停住了
(defun my_err (msg)
(princ (strcat "\nERROR:" msg))
(xdrx_entity_delete ss)
(setq *error* nil)
(xdrx_end)
)

newer · 发表于 2017-6-15 21:07:30

pezyl 发表于 2017-6-15 19:51

重新拷贝下38楼代码，试试。

pezyl · 发表于 2017-6-16 08:55:22

newer 发表于 2017-6-15 21:07

完全可以正常使用了，十分十分感谢！演示如下：

为了更便捷的使用，再厚颜求个改进
1、现在偏移方向的确定是按键[F]控制的，能不能改为拾取到曲线后，靠鼠标左键确认，左键点在曲线哪一侧孔就画在哪一侧；
2、求加上起点和终点尺寸标注，用当前标注样式就行。

newer · 发表于 2017-6-16 09:07:46

pezyl 发表于 2017-6-16 08:55

上面和你说了，如果你要支持任意曲线，那么是不好用鼠标确定位置的

下面图
QQ截图20170616090336.png

你没法通过鼠标告诉哪边是上面，哪边是下面，除非只判断头两个点的连线，但这样，就要求你鼠标要在开始段的附近，用时候反而别扭了。

就输入F吧，平时左手放键盘上，食指就在上面，按着方便。

画尺寸的，对任意曲线的，弧线的，SPLINE的，圆的，你怎么标注？

你画个各种曲线的标注的图贴上来，一个曲线标注的截取一个大图，别像上面的图太小，看不清。

pezyl · 发表于 2017-6-16 09:10:16

借本帖请问N版，我要在二维平面得到矩形的长宽数据，(xdrx_getpropertyvalue x "boundingbox")，这句要怎么改啊？现在的是包围框的长宽，矩形成角度放的就跟实际长宽数据不一样了

登录/注册后可看大图
(defun c:tt (/ ss p lst i)
登录/注册后可看大图
(defun _maketable (lst)
登录/注册后可看大图
(if (setq pt (getpoint "\n表格插入点<退出>:"))
登录/注册后可看大图
(progn
登录/注册后可看大图
(setq lst (cons (list "序号" "长" "宽" "高" "数量" "备注") lst)
登录/注册后可看大图
lst (cons (list "板件尺寸详单(mm)" "" "" "" "" "") lst)
登录/注册后可看大图
)
登录/注册后可看大图
(setq
登录/注册后可看大图
#height (* 3.5 (xd::var:getscaleratio) (xd::var:getratio))
登录/注册后可看大图
)
登录/注册后可看大图
(xd::text:init 1)
登录/注册后可看大图
(XD::Table:MakeFromList lst pt #height (/ #height 2.0))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(if (and (xdrx_initssget "\n选择3DSOLID立方体<退出>:")
登录/注册后可看大图
(setq ss (xdrx_ssget '((0 . "3dsolid"))))
登录/注册后可看大图
)
登录/注册后可看大图
(progn
登录/注册后可看大图
(setq lst
登录/注册后可看大图
(xd::list:group
登录/注册后可看大图
(mapcar '(lambda (x / p1 p2 p3 p4)
登录/注册后可看大图
(mapcar 'set
登录/注册后可看大图
'(p1 p2 p3 p4)
登录/注册后可看大图
(xdrx_getpropertyvalue x "boundingbox")
登录/注册后可看大图
)
登录/注册后可看大图
(xdrx_string_join
登录/注册后可看大图
(mapcar '(lambda (a) (rtos a 2 1))
登录/注册后可看大图
(vl-sort
登录/注册后可看大图
(mapcar '- p3 p1)
登录/注册后可看大图
'(lambda (x y) (> x y))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
"*"
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(xdrx_pickset->ents ss)
登录/注册后可看大图
)
登录/注册后可看大图
1
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(setvar "dimzin" 8)
登录/注册后可看大图
(setq i 0
登录/注册后可看大图
lst (mapcar '(lambda (x)
登录/注册后可看大图
(cons (itoa (setq i (1+ i)))
登录/注册后可看大图
(append (xdrx_string_split (car x) "*")
登录/注册后可看大图
(list (itoa (length x)))
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
lst
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(_maketable lst)
登录/注册后可看大图
)
登录/注册后可看大图
)
登录/注册后可看大图
(princ)
登录/注册后可看大图
)

pezyl · 发表于 2017-6-16 09:36:14

newer 发表于 2017-6-16 09:07

1、嗯，我考虑不周，您说的问题确实存在，习惯着用F了。
2、标注主要是直线，多线段和弧线和样条曲线，封闭曲线就不需要了。

newer · 发表于 2017-6-16 10:37:00

pezyl 发表于 2017-6-16 09:36

(xdrx_getpropertyvalue e "boundingbox") 如果不给参数，是包围盒的X方向平行于坐标系的X轴。你给个方向向量参数，就返回平行于矩形的包围了

矩形的第一点p1,第二点p2
xdir = p2 - p1

(setq xdir (mapcar '- p2 1))

(xdrx_getpropertyvalue e "boundingbox" xdir)
或者
(xdrx_entity_box e xdir)

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

[已解决] [已解决]申请指定间距排孔程序