用xdapi怎么完成简单的复制,旋转,陈列,缩放.对齐等

kcad2010 · 发表于 2013-8-26 20:28:46

提示: 作者被禁止或删除内容自动屏蔽

XDSoft · 发表于 2013-8-27 02:35:45

搜索论坛，用合适的关键字，多看API写的程序，多看函数发布里面的代码，多看晓东工具箱插件发布里面的源代码。

缩放的教学帖子：http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=668002

平移的教学帖子：http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=667994

其他的试试自己写写，不清楚的地方再把写的代码贴论坛来。

XDSoft · 发表于 2013-8-27 03:54:30

给你写了个阵列的代码，参考下，不清楚的，再跟帖。

http://bbs.xdcad.net/thread-670344-1-1.html

缩放的，看下以前EA的帖子，论坛有好多。

http://bbs.xdcad.net/thread-34997-1-1.html

Free-Lancer · 发表于 2013-8-27 05:24:16

翻了翻 API 函数，目前的函数组合用来缩放还不理想，用Transfrom一次后实体就已经缩放，后面再动态时对应的已经不是原实体，这个和Scale命令就不一样了，Copy Move Rotate 没有问题

XDSoft · 发表于 2013-8-27 08:08:56

Free-Lancer 发表于 2013-8-27 05:24
翻了翻 API 函数，目前的函数组合用来缩放还不理想，用Transfrom一次后实体就已经缩放，后面再动态时对应的 ...

没明白啥意思，缩放后，实体还是原来实体啊，缩放没改变实体，如果你用非等比变换，一是不常用，即使用了，如果想和原来实体一样不变ID，可以用xdrx_object_swapid 转换下。

st788796 · 发表于 2013-8-27 08:42:56

XDSoft 发表于 26 分钟前

 登录/注册后可看大图

没明白啥意思，缩放后，实体还是原来实体啊，缩放没改变实体，如果你用非等比变换，一是不常用，即使用了，如果想和原来实体一样不变ID，可以用xdrx_object_swapid 转换下。

大概是用动态缩放时，第一次缩了0.9x，再次缩放0.8x，这时实体已经是缩放了0.9x,第二次对原实体而言缩放系数是 0.8*0.9=0.72，依次类推，都是在前一次基础上缩放，还达不到scale命令的比例缩放效果来自: Android客户端

newer · 发表于 2013-8-27 10:40:26

st788796 发表于 2013-8-27 08:42
大概是用动态缩放时，第一次缩了0.9x，再次缩放0.8x，这时实体已经是缩放了0.9x,第二次对原实体而言缩放 ...

把代码贴上来，供测试，应该没这问题，自由拷贝里面的缩放很正常。

Free-Lancer · 发表于 2013-8-27 13:43:05

newer 发表于 2013-8-27 10:40
把代码贴上来，供测试，应该没这问题，自由拷贝里面的缩放很正常。

(defun c:tt (/ myerr olderr callback ss d p mat0 mat1)
(defun myerr ()
(setq *error* olderr
olderr nil
)
(xdrx_pointmonitor)
(princ)
)
(defun callback (dynpt / d1 scl sl mat)
(setq d1 (distance (trans dynpt 1 0) p)
scl (/ d1 d)
)
(if mat1
(setq sl (xdrx_matrix_scalefactor mat1)
scl (* scl (/ 1. sl))
)
(setq mat1 (xdrx_matrix_setscale mat0 scl p))
)
;(princ "\n")
;(princ scl)
(xdrx_entity_transform ss (xdrx_matrix_setscale mat0 scl p))
)
(setq olderr *error*
*error* myerr
)
(if (and (setq ss (ssget))
(setq p (getpoint "\nBasepoint: "))
(setq d (getdist "\nBase Length: "))
)
(progn
(setq mat0 (xdrx_matrix_identity 3)
p (trans p 1 0)
)
(setq ret (xdrx_pointmonitor "callback" ss))
(setq p1 (getpoint p "\nNew Length: "))
(xdrx_pointmonitor)
)
)
(princ)
)

(defun c:tt (/ myerr olderr callback ss d p mat0 mat1) 
  (defun myerr () 
    (setq *error* olderr 
   olderr  nil 
    ) 
    (xdrx_pointmonitor) 
    (princ) 
  ) 
  (defun callback (dynpt / d1 scl sl mat) 
    (setq d1  (distance (trans dynpt 1 0) p) 
   scl (/ d1 d) 
    ) 
    (if mat1 
      (setq sl (xdrx_matrix_scalefactor mat1) 
     scl (* scl (/ 1. sl)) 
      ) 
      (setq mat1 (xdrx_matrix_setscale mat0 scl p)) 
    ) 
    ;(princ "\n") 
    ;(princ scl) 
    (xdrx_entity_transform ss (xdrx_matrix_setscale mat0 scl p)) 
  ) 
  (setq olderr *error* 
 *error* myerr 
  ) 
  (if (and (setq ss (ssget)) 
    (setq p (getpoint "\nBasepoint: ")) 
    (setq d (getdist "\nBase Length: ")) 
      ) 
    (progn 
      (setq mat0 (xdrx_matrix_identity 3) 
     p  (trans p 1 0) 
      ) 
      (setq ret (xdrx_pointmonitor "callback" ss)) 
      (setq p1 (getpoint p "\nNew Length: ")) 
      (xdrx_pointmonitor) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-8-27 14:14:30

Free-Lancer 发表于 2013-8-27 13:43

这个程序想做什么？

st788796 · 发表于 2013-8-27 15:59:58

newer 发表于 1 小时前

 登录/注册后可看大图

这个程序想做什么？

看样子是模拟比例缩放来自: Android客户端

kcad2010 · 发表于 2013-8-27 17:17:15

提示: 作者被禁止或删除内容自动屏蔽

newer · 发表于 2013-8-27 17:42:41

本帖最后由 newer 于 2013-8-27 17:43 编辑

kcad2010 发表于 2013-8-27 17:17
XD的陈列比vla-arrayRectangular要不要快一点？我现在用vla-arrayRectangular陈列10000个图repeat 4次要 ...

老大阵列的代码给你写了，你自己可以测试下，在你的环境下，然后贴上来，不同人的机器配置不一样，别人的数据你参考不了。

st788796 · 发表于 2013-8-28 08:31:19

本帖最后由 st788796 于 2013-8-28 08:32 编辑

这样改改就 Ok 了，模拟Scale命令的比例缩放

(defun c:tt (/ myerr olderr callback ss d p mat0 mat1)
(defun myerr ()
(setq *error* olderr
olderr nil
)
(xdrx_pointmonitor)
(princ)
)
(defun callback (dynpt / d1 scl sl)
(setq d1 (distance (trans dynpt 1 0) p)
scl (/ d1 d)
)
(if mat1
(setq sl (xdrx_matrix_scalefactor mat1)
scl (* scl (/ 1. sl))
mat1 (xdrx_matrix_setscale mat1 scl p)
)
(setq mat1 (xdrx_matrix_setscale mat0 scl p))
)
(xdrx_entity_transform ss (xdrx_matrix_setscale mat0 scl p))
)
(setq olderr *error*
*error* myerr
)
(if (and (setq ss (ssget))
(setq p (getpoint "\n基点: "))
(setq d (getdist "\n基准长度: "))
)
(progn
(setq mat0 (xdrx_matrix_identity 3)
p (trans p 1 0)
)
(setq ret (xdrx_pointmonitor "callback" ss))
(setq p1 (getpoint p "\n新长度: "))
(xdrx_pointmonitor)
)
)
(princ)
)

(defun c:tt (/ myerr olderr callback ss d p mat0 mat1) 
  (defun myerr () 
    (setq *error* olderr 
   olderr  nil 
    ) 
    (xdrx_pointmonitor) 
    (princ) 
  ) 
  (defun callback (dynpt / d1 scl sl) 
    (setq d1  (distance (trans dynpt 1 0) p) 
   scl (/ d1 d) 
    ) 
    (if mat1 
      (setq sl  (xdrx_matrix_scalefactor mat1) 
     scl  (* scl (/ 1. sl)) 
     mat1 (xdrx_matrix_setscale mat1 scl p) 
      ) 
      (setq mat1 (xdrx_matrix_setscale mat0 scl p)) 
    ) 
    (xdrx_entity_transform ss (xdrx_matrix_setscale mat0 scl p)) 
  ) 
  (setq olderr *error* 
 *error* myerr 
  ) 
  (if (and (setq ss (ssget)) 
    (setq p (getpoint "\n基点: ")) 
    (setq d (getdist "\n基准长度: ")) 
      ) 
    (progn 
      (setq mat0 (xdrx_matrix_identity 3) 
     p  (trans p 1 0) 
      ) 
      (setq ret (xdrx_pointmonitor "callback" ss)) 
      (setq p1 (getpoint p "\n新长度: ")) 
      (xdrx_pointmonitor) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2013-8-28 08:41:09

st788796 发表于 2013-8-28 08:31
这样改改就 Ok 了，模拟Scale命令的比例缩放

改在哪了，原来是什么原因？

st788796 · 发表于 2013-8-28 11:08:32

newer 发表于 2013-8-28 08:41
改在哪了，原来是什么原因？

Fy的程序没有更新上次保存的矩阵

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

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	发表于 2013-8-26 20:28:46 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

kcad2010 kcad2010 当前离线 UID 677304 积分 391 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-7 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 182个财富等级: 日进斗金	楼主\| 发表于 2013-8-27 17:17:15 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助] 用xdapi怎么完成简单的复制,旋转,陈列,缩放.对齐等

点评

点评

点评

点评

点评