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

ll_j · 发表于 2013-4-22 15:56:11

这似乎和坐标转换关系不大，看看我的这段代码：
[pcode=lisp,true](defun c:sa (/ ins dx) ;;属性转正
  (setq ins (car (entsel "\n拾取属性块：")))
  (while (= (cdr (assoc 0 (entget (setq ins (entnext ins)))))
      "ATTRIB"
   )
(setq dx(getvar "ucsxdir")
   dx(atan (/ (cadr dx) (car dx)))  ;;得到当前UCS角度
)
(if (/= (cdr (assoc 50 (entget ins))) dx)
   (entmod (subst
(cons 50 dx)
(assoc 50 (entget ins))
(entget ins)
      )
   )
)
  )
)[/pcode]

Free-Lancer · 发表于 2013-4-22 17:12:57

这个属性用的是 Fit 对齐，改角度没用，要改插入点、对齐点

yx5277 · 发表于 2013-4-22 17:35:40

本帖最后由 yx5277 于 2013-4-22 17:39 编辑

对正方式是“布满”，这个方式对应的组码是5，角度不起作用了？如果是左右对齐的就很容易改:P

ll_j · 发表于 2013-4-22 17:50:54

Free-Lancer 发表于 2013-4-22 17:12

登录/注册后可看大图

这个属性用的是 Fit 对齐，改角度没用，要改插入点、对齐点

既然这样，霸道一下：
[pcode=lisp,true](defun c:sa (/ ins dx) ;;属性转正
  (load "acetutil3")
  (setq ins (car (entsel "\n拾取属性块：")))
  (while (= (cdr (assoc 0 (entget (setq ins (entnext ins)))))
      "ATTRIB"
   )
(setq dx(getvar "ucsxdir")
   dx(atan (/ (cadr dx) (car dx)))  ;;得到当前UCS角度
)
(acet-tjust (ssadd ins) "MC")
(if (/= (cdr (assoc 50 (entget ins))) dx)
   (entmod (subst
(cons 50 dx)
(assoc 50 (entget ins))
(entget ins)
      )
   )
)
  )
)[/pcode]

大概搞这些玩意的人不会没装ET吧？

Lispboy · 发表于 2013-4-22 18:10:15

ll_j 发表于 2013-4-22 17:50

登录/注册后可看大图

既然这样，霸道一下：
(defun c:sa (/ ins dx) ;;属性转正
(load "acetutil3")

LL_J大哥，

(acet-tjust (ssadd ins) "MC")

复制代码

这个函数是做什么的~

ll_j · 发表于 2013-4-22 18:41:49

Lispboy 发表于 2013-4-22 18:10

登录/注册后可看大图

LL_J大哥，这个函数是做什么的~

这是ExpressTools的函数，这个函数是修改文本对齐点的。
我所说的“霸道”，就是把不管什么对齐方式的属性文字都强制修改成中心对齐形式，然后旋转，一般情况下这就够用了。
因为我专业的不同，不太使用属性块，也就不太知道这里到底有什么习惯，所以就随便搞一下，权当抛砖吧。

yx5277 · 发表于 2013-4-22 21:23:11

yx5277 发表于 2013-4-22 17:35

登录/注册后可看大图

对正方式是“布满”，这个方式对应的组码是5，角度不起作用了？如果是左右对齐的就很容易改

其实这个问题的实质感觉就是在对正方式为“布满”或者是fit的情况下，如何修改文字的旋转角度？

eachy · 发表于 2013-4-22 23:07:55

最简单的方法、正确的方法是旋转块，不要拿 Attributes 练啦

xtdwynij · 发表于 2013-4-22 23:09:32

wowan1314 发表于 2013-4-22 11:19

登录/注册后可看大图

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

哎！本以为要告别编程 ...

哥哥哪里都能看到你的身影啊！哈哈。

xyp1964 · 发表于 2013-4-22 23:42:58

(defun c:tt ()
(setq p1 (getvar "UCSXDIR")
rad (angle '(0 0) p1)
s1 (car (entsel "\n选择: "))
obj (car (xyp-get-LispValue (vla-GetAttributes (vlax-ename->vla-object s1))))
vlpt (vlax-3d-point (xyp-9pt (vlax-vla-object->ename obj) 5))
rr (- rad (vla-get-Rotation obj))
)
(vla-rotate obj vlpt rr)
(princ)
)

XDSoft · 发表于 2013-4-23 08:14:29

xyp1964 发表于 2013-4-22 23:42

登录/注册后可看大图

xyp, 差个 xyp-get-LispValue 函数。

xyp1964 · 发表于 2013-4-23 08:15:54

(defun xyp-get-LispValue (Value) (vlax-safearray->list (vlax-variant-value Value)))

XDSoft · 发表于 2013-4-23 08:16:57

xyp1964 发表于 2013-4-23 08:15

登录/注册后可看大图

几秒内你就传上来了，好快的手啊。

XDSoft · 发表于 2013-4-23 08:18:30

eachy 发表于 2013-4-22 23:07

登录/注册后可看大图

最简单的方法、正确的方法是旋转块，不要拿 Attributes 练啦

不能旋转块的，指向的线和圆是要固定位置的。

ll_j · 发表于 2013-4-23 10:01:51

个人以为，正解应该是求出属性文字的中心，然后不改变文字的对齐方式，旋转一个角度。
由插入点算出文字中点并不难，但对齐方式多种多样，每种都考虑，使用ALis，程序还是相对复杂的，不过，如果通过包围盒来求，使用VLisp，或许变化少一些。
我的代码改变了文字的对齐方式，此是败笔，不过也不想多研究了。

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

[有奖答题] 修改属性文字平齐用户坐标系...

评分

点评

评分

点评