设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 【炫翔】函数是否还有优化的空间
12
返回列表 发新帖
楼主: 炫翔

[研讨] 【炫翔】函数是否还有优化的空间

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-9-12 12:09:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
/db_自贡黄明儒_ 发表于 2013-9-12 12:01
现在电脑速度越来越快，所以我认为考虑通用是必要的。但你这个看不出对裁剪块，MTEXT，UCS是如何处理的。

一个函数一个函数往上面找。不能在最终的应用函数，还要把那些基础的代码都写到一起啊。

UCS的，看 XD::Entity:BOX
mtext,clipblock的，API直接就提供了 xdrx_entity_box ,你可以拿这个函数，去试试MTEXT,CLIPBLOCK。

点评

/db_自贡黄明儒_
谢谢newer版主！！！  发表于 2013-9-12 12:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Love-Lisp
发表于 2013-9-12 13:18:08 | 显示全部楼层
newer 发表于 2013-9-12 11:16
继续讨论前 ，应该首先定义下你的9点是什么位置？ 定义的不一样，肯定就不同了。

我的定义是 逆时针方向 ...

9点的位置顺序定义，最好要和MTEXT 附着点的顺序一致：
71
附着点：
1 = 左上；2 = 中上；3 = 右上
4 = 左中；5 = 正中；6 = 右中
7 = 左下；8 = 中下；9 = 右下
这样取得位置点后方便后续编程利用！

点评

newer
MTEXT和TABLE实体都是有个生成方向属性 FlowDirection 的，默认是从上到下的。也可以设置从下到上的，这样第一个点就是左下点了。 大多数实体的方向都是左下点开始的，这样也符合习惯。  详情 回复 发表于 2013-9-12 15:03
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-9-12 13:57:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 /db_自贡黄明儒_ 于 2013-9-12 16:31 编辑

  1. ;;考虑UCS,照搬highflybird的程序
  2. ;|
  3. 1 = 左上；2 = 中上；3 = 右上
  4. 4 = 左中；5 = 正中；6 = 右中
  5. 7 = 左下；8 = 中下；9 = 右下
  6. |;
  7. (defun xx-9pt (ename / MATLST  MATRIX  NP      OBJ     ORIGIN
  8.                P6      REVMAT  UCSFLAG WCSORG  XD      XDIR    XP      YD
  9.                YDIR    ZDIR
  10.               )
  11.   ;;矩阵的变换与逆变换
  12.   (defun GetMatrix (lst org Revflag / I J MAT)
  13.     (setq mat (vlax-make-safearray vlax-vbDouble '(0 . 3) '(0 . 3)))
  14.     ;;初始化一个4X4的矩阵
  15.     (setq i 0)
  16.     (repeat 3
  17.       (vlax-safearray-put-element mat i 3 (nth i org)) ;平移变换
  18.       (setq j 0)
  19.       (repeat 3
  20.         (if RevFlag
  21.           (vlax-safearray-put-element mat i j (nth j (nth i lst))) ;角度逆变换
  22.           (vlax-safearray-put-element mat i j (nth i (nth j lst))) ;角度的变换
  23.         )
  24.         (setq j (1+ j))
  25.       )
  26.       (setq i (1+ i))
  27.     )
  28.     (vlax-safearray-put-element mat 3 3 1)
  29.     mat                                                  ;返回矩阵
  30.   )
  31.   ;;两矢量的叉积
  32.   (defun G:CrossProductor (vec1 vec2 / a b c d e f)
  33.     (setq a (car vec1))
  34.     (setq b (cadr vec1))
  35.     (setq c (caddr vec1))
  36.     (setq d (car vec2))
  37.     (setq e (cadr vec2))
  38.     (setq f (caddr vec2))
  39.     (list
  40.       (- (* b f) (* c e))
  41.       (- (* c d) (* a f))
  42.       (- (* a e) (* b d))
  43.     )
  44.   )


  47.   (setq        obj (cond ((= (type ename) 'ENAME) (vlax-ename->vla-object ename))
  48.                   ((= (type ename) 'VLA-OBJECT) ename)
  49.             )
  50.   )
  51.   ;;先判断UCS是否与WCS相同。如是则取得UCS的X方向，
  52.   ;;Y方向，Z方向，UCS原点及WCS的原点相对UCS的坐标点
  53.   ;;然后得到UCS变换矩阵和到WCS的逆变换矩阵
  54.   (setq UcsFlag (getvar "WORLDUCS"))
  55.   (if (= UcsFlag 0)                                  ;UCS是否与WCS相同
  56.     (setq UcsFlag T                                  ;设置标志位为true
  57.           xdir          (getvar "UCSXDIR")                  ;X方向矢量
  58.           ydir          (getvar "UCSYDIR")                  ;Y方向矢量
  59.           zdir          (G:CrossProductor xdir ydir)          ;X和Y的方向矢量的叉积
  60.           origin  (getvar "UCSORG")                  ;原点
  61.           WcsOrg  (trans '(0 0 0) 0 1)                  ;WCS的原点相对UCS的坐标
  62.           matLst  (list xdir ydir zdir)                  ;旋转的变换矩阵表
  63.           matrix  (GetMatrix matLst origin nil)          ;从WCS到UCS的变换矩阵
  64.           revMat  (GetMatrix matLst WcsOrg T)          ;从UCS到WCS的变换矩阵
  65.     )
  66.     (setq UcsFlag nil)                                  ;否则不予变换
  67.   )
  68.   ;;在UCS下先变换物体到WCS下，取得每个物体的包围框，
  69.   ;;求出包围框集合的最小XY，最大XY，并用矩形框画出来
  70.   ;;然后把物体变换回到UCS，并把矩形也变换回去
  71.   (and UcsFlag (vla-TransformBy obj revMat))          ;反变换到WCS
  72.   (vla-GetBoundingBox obj 'np 'xp)                  ;得到包围框
  73.   (setq nP (vlax-safearray->list nP))                  ;取得第1点
  74.   (setq xP (vlax-safearray->list xP))                  ;取得第9点
  75.   (and UcsFlag (vla-TransformBy obj matrix))          ;变换回到UCS

  77.   (setq p6 (list (car xp) (cadr np) 0.0))
  78.   (setq        xd (distance np p6)
  79.         yd (distance xp p6)
  80.   )
  81.   (list        (polar np (* pi 0.5) yd)
  82.         (polar xp 0 (* xd 0.5))
  83.         xp
  84.         (polar np (* pi 0.5) (* yd 0.5))
  85.         (list (+ (car np) (* xd 0.5)) (+ (cadr np) (* yd 0.5)) 0.0)
  86.         (polar xp (* 1.5 pi) (* yd 0.5))
  87.         np
  88.         (polar np (* pi 2) (* xd 0.5))
  89.         p6

  91.   )
  92. )
  93. ;|
  94. (defun get-utime()(* 86400.0 (getvar"tdusrtimer")))
  95. (defun c:xx (/ i s1 ss t1 t2)
  96.   (setq ss (ssget '((0 . "text")))
  97.         i -1
  98.   )
  99.   (setq t1 (get-utime))
  100.   (while (setq s1 (ssname ss (setq i (1+ i))))
  101.    (mapcar '(lambda (x) (xx-9pt s1 x)) '(1 2 3 4 5 6 7 8 9))
  102.   )
  103.   (setq t2 (get-utime))
  104.   (PRINC (list 0 0 (- t2 t1)))
  105.   (princ)
  106. )
  107. |;
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-9-12 15:03:35 | 显示全部楼层
Love-Lisp 发表于 2013-9-12 13:18
9点的位置顺序定义，最好要和MTEXT 附着点的顺序一致：这样取得位置点后方便后续编程利用！

MTEXT和TABLE实体都是有个生成方向属性 FlowDirection 的，默认是从上到下的。也可以设置从下到上的，这样第一个点就是左下点了。

大多数实体的方向都是左下点开始的，这样也符合习惯。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-9-12 15:54:56 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
这个层面是应用，没必要到理论啊效率的，批量到一定就是小众应用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2013-9-12 20:20:37 | 显示全部楼层
炫翔 发表于 2013-9-12 11:18
789456
123

支持这种小键盘排位法~~~~对于我们这些E文不懂的人来说很容易记
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-9-16 15:48:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
炫版，你这个还没有完3，考虑转角怎么写呀？

点评

炫翔
网站一直很慢，没有...对于角度的，我没还没打算研究 初步思路，是用得到点再进行根据角度选取点  发表于 2013-9-16 17:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-9-17 14:03:28 | 显示全部楼层
  1. ;;下面这段代码是用Highflybird的包围盒改的。
  2. ;;为了在ucs下画中心，比如旋转后的矩形，求得对象的周围9点是必要的，但为了这么一个程序加载XD的api函数，似乎有点小题大作
  3. ;;看了两天Highflybird的矩阵和trans,不能悟透。

  5. (defun c:w1 (/ ENT I MATLST MATRIX MAXPT MINPT OBJ ORIGIN REVMAT SEL UCSFLAG WCSORG XDIR YDIR ZDIR)
  6.   ;;矩阵的变换与逆变换
  7.   (defun GetMatrix (lst org Revflag / mat i j)
  8.     (setq mat (vlax-make-safearray vlax-vbDouble '(0 . 3) '(0 . 3)))
  9.                                                   ;初始化一个4X4的矩阵
  10.     (setq i 0)
  11.     (repeat 3
  12.       (vlax-safearray-put-element mat i 3 (nth i org)) ;平移变换
  13.       (setq j 0)
  14.       (repeat 3
  15.         (if RevFlag
  16.           (vlax-safearray-put-element mat i j (nth j (nth i lst))) ;角度逆变换
  17.           (vlax-safearray-put-element mat i j (nth i (nth j lst))) ;角度的变换
  18.         )
  19.         (setq j (1+ j))
  20.       )
  21.       (setq i (1+ i))
  22.     )
  23.     (vlax-safearray-put-element mat 3 3 1)
  24.     mat                                                  ;返回矩阵
  25.   )
  26.   ;;构造矩形
  27.   (defun Make-Rectange (pt1 pt2)
  28.     (entmake
  29.       (list
  30.         '(0 . "LWPOLYLINE")                          ;轻多段线
  31.         '(100 . "AcDbEntity")
  32.         '(100 . "AcDbPolyline")
  33.         '(90 . 4)                                  ;四个顶点
  34.         '(70 . 1)                                  ;闭合
  35.         (cons 38 (caddr pt1))                          ;高程
  36.         (cons 10 (list (car pt1) (cadr pt1)))          ;左下角
  37.         (cons 10 (list (car pt2) (cadr pt1)))          ;右下角
  38.         (cons 10 (list (car pt2) (cadr pt2)))          ;右上角
  39.         (cons 10 (list (car pt1) (cadr pt2)))          ;左上角
  40.         (cons 210 '(0 0 1))                          ;法线方向
  41.       )
  42.     )
  43.   )

  45.   ;;在UCS下先变换物体到WCS下，取得每个物体的包围框，
  46.   ;;求出包围框集合的最小XY，最大XY，并用矩形框画出来
  47.   ;;然后把物体变换回到UCS，并把矩形也变换回去
  48.   (if (setq ent (car (entsel)))
  49.     ;;选择物体
  50.     (progn
  51.       (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) ;左下角点
  52.       (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) ;右上角点
  53.       
  54.       (command "_.UCS" "NEW" "Object" ent)
  55.       
  56.       ;;先判断UCS是否与WCS相同。如是则取得UCS的X方向，
  57.       ;;Y方向，Z方向，UCS原点及WCS的原点相对UCS的坐标点
  58.       ;;然后得到UCS变换矩阵和到WCS的逆变换矩阵
  59.       (setq UcsFlag (getvar "WORLDUCS"))
  60.       (if (= UcsFlag 0)                                  ;UCS是否与WCS相同
  61.         (setq UcsFlag T                                  ;设置标志位为true
  62.               xdir    (getvar "UCSXDIR")          ;X方向矢量
  63.               ydir    (getvar "UCSYDIR")          ;Y方向矢量
  64.               zdir    (MAT:vxv xdir ydir)          ;X和Y的方向矢量的叉积
  65.               origin  (getvar "UCSORG")                  ;原点
  66.               WcsOrg  (trans '(0 0 0) 0 1)          ;WCS的原点相对UCS的坐标
  67.               matLst  (list xdir ydir zdir)          ;旋转的变换矩阵表
  68.               matrix  (GetMatrix matLst origin nil) ;从WCS到UCS的变换矩阵
  69.               revMat  (GetMatrix matLst WcsOrg T) ;从UCS到WCS的变换矩阵
  70.         )
  71.         (setq UcsFlag nil)                          ;否则不予变换
  72.       )
  73.       (setq obj (vlax-ename->vla-object ent))          ;obj对象
  74.       (and UcsFlag (vla-TransformBy obj revMat))  ;反变换到WCS
  75.       (vla-GetBoundingBox obj 'minpt 'maxpt)          ;得到包围框
  76.       (setq minPt (vlax-safearray->list minPt))
  77.       (setq maxPt (vlax-safearray->list maxPt))
  78.       (and UcsFlag (vla-TransformBy obj matrix))  ;变换回到UCS

  80.       (command "_.UCS" "P")      

  82.       (and
  83.         (make-Rectange minPt maxPt)                  ;构造边框
  84.         UcsFlag                                          ;如果UCS的话
  85.         (vla-TransformBy
  86.           (vlax-ename->vla-object (entlast))
  87.           matrix                                  ;变换边框到UCS
  88.         )
  89.       )
  90.     )
  91.   )
  92.   (princ)
  93. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-9-17 14:05:55 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. ;;下面这段代码是用Highflybird的包围盒改的。
  4. ;;为了在ucs下画中心，比如旋转后的矩形，求得对象的周围9点是必要的，但为了这么一个程序加载XD的api函数，似乎有点小题大作
  5. ;;看了两天Highflybird的矩阵和trans,不能悟透。

  7. (defun c:w1 (/ ENT I MATLST MATRIX MAXPT MINPT OBJ ORIGIN REVMAT SEL UCSFLAG WCSORG XDIR YDIR ZDIR)
  8.   ;;矩阵的变换与逆变换
  9.   (defun GetMatrix (lst org Revflag / mat i j)
  10.     (setq mat (vlax-make-safearray vlax-vbDouble '(0 . 3) '(0 . 3)))
  11.                                                   ;初始化一个4X4的矩阵
  12.     (setq i 0)
  13.     (repeat 3
  14.       (vlax-safearray-put-element mat i 3 (nth i org)) ;平移变换
  15.       (setq j 0)
  16.       (repeat 3
  17.         (if RevFlag
  18.           (vlax-safearray-put-element mat i j (nth j (nth i lst))) ;角度逆变换
  19.           (vlax-safearray-put-element mat i j (nth i (nth j lst))) ;角度的变换
  20.         )
  21.         (setq j (1+ j))
  22.       )
  23.       (setq i (1+ i))
  24.     )
  25.     (vlax-safearray-put-element mat 3 3 1)
  26.     mat                                                  ;返回矩阵
  27.   )
  28.   ;;构造矩形
  29.   (defun Make-Rectange (pt1 pt2)
  30.     (entmake
  31.       (list
  32.         '(0 . "LWPOLYLINE")                          ;轻多段线
  33.         '(100 . "AcDbEntity")
  34.         '(100 . "AcDbPolyline")
  35.         '(90 . 4)                                  ;四个顶点
  36.         '(70 . 1)                                  ;闭合
  37.         (cons 38 (caddr pt1))                          ;高程
  38.         (cons 10 (list (car pt1) (cadr pt1)))          ;左下角
  39.         (cons 10 (list (car pt2) (cadr pt1)))          ;右下角
  40.         (cons 10 (list (car pt2) (cadr pt2)))          ;右上角
  41.         (cons 10 (list (car pt1) (cadr pt2)))          ;左上角
  42.         (cons 210 '(0 0 1))                          ;法线方向
  43.       )
  44.     )
  45.   )

  47.   ;;在UCS下先变换物体到WCS下，取得每个物体的包围框，
  48.   ;;求出包围框集合的最小XY，最大XY，并用矩形框画出来
  49.   ;;然后把物体变换回到UCS，并把矩形也变换回去
  50.   (if (setq ent (car (entsel)))
  51.     ;;选择物体
  52.     (progn
  53.       (setq minPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) ;左下角点
  54.       (setq maxPt (vlax-make-safearray vlax-vbdouble '(0 . 2))) ;右上角点
  55.       
  56.       (command "_.UCS" "NEW" "Object" ent)
  57.       
  58.       ;;先判断UCS是否与WCS相同。如是则取得UCS的X方向，
  59.       ;;Y方向，Z方向，UCS原点及WCS的原点相对UCS的坐标点
  60.       ;;然后得到UCS变换矩阵和到WCS的逆变换矩阵
  61.       (setq UcsFlag (getvar "WORLDUCS"))
  62.       (if (= UcsFlag 0)                                  ;UCS是否与WCS相同
  63.         (setq UcsFlag T                                  ;设置标志位为true
  64.               xdir    (getvar "UCSXDIR")          ;X方向矢量
  65.               ydir    (getvar "UCSYDIR")          ;Y方向矢量
  66.               zdir    (MAT:vxv xdir ydir)          ;X和Y的方向矢量的叉积
  67.               origin  (getvar "UCSORG")                  ;原点
  68.               WcsOrg  (trans '(0 0 0) 0 1)          ;WCS的原点相对UCS的坐标
  69.               matLst  (list xdir ydir zdir)          ;旋转的变换矩阵表
  70.               matrix  (GetMatrix matLst origin nil) ;从WCS到UCS的变换矩阵
  71.               revMat  (GetMatrix matLst WcsOrg T) ;从UCS到WCS的变换矩阵
  72.         )
  73.         (setq UcsFlag nil)                          ;否则不予变换
  74.       )
  75.       (setq obj (vlax-ename->vla-object ent))          ;obj对象
  76.       (and UcsFlag (vla-TransformBy obj revMat))  ;反变换到WCS
  77.       (vla-GetBoundingBox obj 'minpt 'maxpt)          ;得到包围框
  78.       (setq minPt (vlax-safearray->list minPt))
  79.       (setq maxPt (vlax-safearray->list maxPt))
  80.       (and UcsFlag (vla-TransformBy obj matrix))  ;变换回到UCS

  82.       (command "_.UCS" "P")      

  84.       (and
  85.         (make-Rectange minPt maxPt)                  ;构造边框
  86.         UcsFlag                                          ;如果UCS的话
  87.         (vla-TransformBy
  88.           (vlax-ename->vla-object (entlast))
  89.           matrix                                  ;变换边框到UCS
  90.         )
  91.       )
  92.     )
  93.   )
  94.   (princ)
  95. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lijiao
发表于 2013-9-22 10:34:45 | 显示全部楼层
  2. (defun xx-9pt (s1 mode / DX DY MAXP MAXPOINT MINP MINPOINT PT PTS X1 X2 Y1 Y2)
  3.   (setq s1 (vlax-ename->vla-object s1))
  4.   (vla-getboundingbox s1 'minpoint 'maxpoint)
  5.   (setq maxp (vlax-safearray->list maxpoint)        ;取得第9点
  6.         minp (vlax-safearray->list minpoint);取得第1点
  7.         x1  (car minp)
  8.         x2  (car maxp)
  9.         y1  (cadr minp)
  10.         y2  (cadr maxp)
  11.         dx  (* (+ x2 x1) 0.5)
  12.         dy  (* (+ y2 y1) 0.5)
  13.         pts (list minp             ;1
  14.                   (list dx y1)     ;2
  15.                   (list x2 y1)     ;3
  16.                   (list x1 dy)     ;4
  17.                   (list dx dy)     ;5
  18.                   (list x2 dy)     ;6
  19.                   (list x1 y2)     ;7
  20.                   (list dx y2)     ;8
  21.                   maxp             ;9
  22.                   )
  23.         )
  24.   (if (<= 1 mode 9)
  25.     (nth (1- mode) pts)
  26.     minp
  27.     )
  28.   )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lijiao
发表于 2013-9-22 11:09:46 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 lijiao 于 2013-9-22 11:12 编辑
  2. (defun xx-9pt (s1 mode / MAXPOINT MINPOINT PTS X Y)
  3.   (setq s1 (vlax-ename->vla-object s1))
  4.   (vla-getboundingbox s1 'minpoint 'maxpoint)
  5.   (setq minpoint (vlax-safearray->list minpoint)
  6.         maxpoint (vlax-safearray->list maxpoint))
  7.   (setq pts (list minpoint (mapcar '(lambda (x y) (* 0.5 (+ x y))) minpoint maxpoint) maxpoint))
  8.   (setq pts (apply 'append (mapcar '(lambda(y)
  9.                        (mapcar '(lambda(x)
  10.                                   (list x y))
  11.                                (mapcar 'car pts))
  12.                        )
  13.                     (mapcar 'cadr pts)
  14.                     )
  15.                    )
  16.         )
  17.   (if (<= 1 mode 9)
  18.     (nth (1- mode) pts)
  19.     (car pts)
  20.     )
  21.   )

点评

炫翔
不过速度还较慢些  发表于 2013-9-22 14:00

评分

参与人数 1D豆 +5 收起 理由
炫翔 + 5 技术引导讨论和指点奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-2-19 06:18 , Processed in 0.410450 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表