修改属性文字平齐用户坐标系...

XDSoft

很多朋友在写程序的时候往往都忽视用户坐标系，包括一些专业软件，其实充分利用好用户坐标系，绘图往往效率更高。

现在的题目见二楼图和附件。


图形中当前在用户坐标系下，为了出图的美观，我们需要把左边的块属性字F21修改为右边红色的F21，让F21平行于用户坐标系。

大家写写代码，看看哪个代码最优最美。

相对最好的代码奖励D豆50，所有参与贴代码到论坛的朋友，只要能实现都奖励20D豆。


豆不在多，重在参与，快乐的编程。

XDSoft

测试图形见附件。

haungjing0987

楼主亏你想的到。以后我也效仿:lol

XDSoft

haungjing0987 发表于 2013-4-22 10:47

                               
登录/注册后可看大图

楼主亏你想的到。以后我也效仿

:o 我想到啥了？

wowan1314

这个确实要考虑下了！ 最近画图发现几个程序都没考虑用户坐标系，导致无法使用！

哎！ 本以为要告别编程了！才发现程序更新无止境啊！

XD出的题目都很实用！ 希望可以学到更多！:$

zfbj

问题提的非常好，我们也是用户提到这个问题的时候才去修改的，不过可以趁这个机会总结出一整套方法来简化命令对UCS的支持。

XDSoft

zfbj 发表于 2013-4-22 11:23

                               
登录/注册后可看大图

问题提的非常好，我们也是用户提到这个问题的时候才去修改的，不过可以趁这个机会总结出一整套方法来简化命 ...

其实这都是编程者养成的习惯，或者是意识，不用什么高深的编程技巧和算法。其实在写程序的时候对点的操作加个TRANS 就可以了，但是如果后期去找代码修改，那就是工作量很大了，可鞥按倒葫芦起了瓢。

我用过的几个专业软件，什么文字对齐了等等，WCS下好好的，一到UCS就不知道对齐到哪去了。

Gu_xl

我的经验是：在程序的开始一律将ucs设置到wcs，程序结束时恢复ucs，所以在程序中间就无需考虑ucs的问题！

wowan1314

组码里得到的点是什么坐标下的点？
ENTMAKE的时候里面的点又是什么坐标下的？
一般函数在运行时候得到的点又是什么坐标下的？
很迷糊！除了世界坐标系、用户坐标系还有对象坐标系！这些都没搞清楚呢！
是不是组码得到的点坐标与ENTMAKE用的点坐标都要是WCS情况下的？
而函数运行得到的点是用户坐标系的？

XDSoft

Gu_xl 发表于 2013-4-22 11:44

                               
登录/注册后可看大图

我的经验是：在程序的开始一律将ucs设置到wcs，程序结束时恢复ucs，所以在程序中间就无需考虑ucs的问题！

高手们，把程序贴上来，百花齐放，百家争鸣，它山之石可以攻玉。

拉契

对ucs和wcs的理解不深！  坐等高手帖程序出来学习{:soso_e197:}

eachy

用command就不需要那么麻烦来自: Android客户端

Lisper

[pcode=lisp,true];;旋转属性到UCS方向
(defun c:tt (/ ANG SS N OBJ CP ll ur)
  (setq ang (angle '(0 0 0) (getvar 'ucsxdir))) ;_ ucs x方向WCS角度
  (if (setq ss (ssget '((0 . "insert") (66 . 1)))) ;_ 选择属性快
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
      (foreach att (vlax-invoke obj 'GetAttributes)
        (if (not
              (VL-CATCH-ALL-ERROR-P
                (VL-CATCH-ALL-APPLY
                  'vla-GetBoundingBox
                  (list att 'll 'ur)
                  )
                )
              ) ;_ 防止属性为空是出错
          (progn
            (setq cp (mapcar '*
                             '(0.5 0.5 0.5)
                             (mapcar '+
                                     (vlax-safearray->list ll)
                                     (vlax-safearray->list ur)
                                     )
                             )
                  ) ;_ 计算属性中心点
            (vla-rotate
              att
              (vlax-3d-point cp)
              (- ang (vla-get-Rotation att))
              ) ;_ 旋转属性到UCS方向
            )
          (vla-rotate
            att
            (vla-get-InsertionPoint att)
            (- ang (vla-get-Rotation att))
            ) ;_ 旋转空属性到UCS方向
          )
        )
      )
    )
  (princ)
  )[/pcode]

yx5277

这个问题我前段时间研究过，我是根据已有文字的角度得出我需要写出的文字角度，不管已有文字是属性还是参照内，是Ucs下还是Wcs下，演示如下：

XDSoft

yx5277 发表于 2013-4-22 13:13

                               
登录/注册后可看大图

这个问题我前段时间研究过，我是根据已有文字的角度得出我需要写出的文字角度，不管已有文字是属性还是参照 ...

不错的演示，你可以找到属性文字的角度了。

试试写一个把属性给转向的程序，可能考虑的地方还要多点。