用API创建一个属性标题

st788796 · 发表于 2013-10-15 11:52:35

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2013-10-15 11:56 编辑

;;sty -- textstyle
;;str -- string
;;h -- height
(defun XD::String:Len (sty str h)
(and (or (not sty)
(= sty "")
(not (tblsearch "style" sty))
)
(setq sty (getvar "textstyle"))
)
(abs
(car
(apply 'mapcar
(cons '-
(textbox (list (cons 1 str) (cons 7 sty) (cons 40 h)))
)
)
)
)
)
(defun mkblkdef (bn string / len pl txt ss)
(setq len (* 0.5 (xd::string:len "" string 4.)))
(setq pl (xdrx_polyline_make
(list (- (1+ len)) 0. 0.)
(list (1+ len) 0. 0.)
)
)
(xdrx_setpropertyvalue pl "ConstantWidth" 0.5)
(setq txt (xdrx_text_make '(0. 1. 0.) string 4. 0.))
(setpropertyvalue txt "Justify" 13);_2011+ api暂不支持
(setq att (xdrx_attributedef_make txt t)
ss (ssadd)
)
(ssadd att ss)
(ssadd pl ss)
(or (and (or (not bn)
(= bn "")
(wcmatch bn "`**")
)
(setq bn (xdrx_block_make ss '(0. 0. 0.) t))
)
(xdrx_block_make bn ss '(0. 0. 0.) t)
)
(entdel (entlast))
bn
)

;;sty -- textstyle 
;;str -- string 
;;h   -- height 
(defun XD::String:Len (sty str h) 
  (and (or (not sty) 
    (= sty "") 
    (not (tblsearch "style" sty)) 
       ) 
       (setq sty (getvar "textstyle")) 
  ) 
  (abs 
    (car 
      (apply 'mapcar 
      (cons '- 
     (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h))) 
      ) 
      ) 
    ) 
  ) 
) 
(defun mkblkdef (bn string / len pl txt ss) 
  (setq len (* 0.5 (xd::string:len "" string 4.))) 
  (setq pl (xdrx_polyline_make 
      (list (- (1+ len)) 0. 0.) 
      (list (1+ len) 0. 0.) 
    ) 
  ) 
  (xdrx_setpropertyvalue pl "ConstantWidth" 0.5) 
  (setq txt (xdrx_text_make '(0. 1. 0.) string 4. 0.)) 
  (setpropertyvalue txt "Justify" 13);_2011+ api暂不支持 
  (setq att (xdrx_attributedef_make txt t) 
 ss  (ssadd) 
  ) 
  (ssadd att ss) 
  (ssadd pl ss) 
  (or (and (or (not bn) 
        (= bn "") 
        (wcmatch bn "`**") 
    ) 
    (setq bn (xdrx_block_make ss '(0. 0. 0.) t)) 
      ) 
      (xdrx_block_make bn ss '(0. 0. 0.) t) 
  ) 
  (entdel (entlast)) 
  bn 
)

调用方法
命令: (mkblkdef "*" "钢筋统计表")
"*U6"
命令: (mkblkdef "Title" "钢筋统计表")
"Title"

newer · 发表于 2013-10-15 14:56:25

API对文字对齐方式设置是支持的

(xdrx_setpropertyvalue e)

Class AcDbText:

  ├─AlignmentPoint(Point)
  ├─Rotation(Real)
  ├─HorizontalMode(T or Nil)
  ├─Normal(Point)
  ├─Oblique(Real)
  ├─Position(Point)
  ├─TextStyle(STR or Ename)
  ├─TextString(STR)
  ├─Thickness(Real or Int)
  ├─VerticalMode(T or Nil)
  ├─WidthFactor(Real or Int)

另外通用LISP函数库里面有个现成的函数，调整文字的对齐方式而位置保持不变，可以拿来直接使用。

(XD::Text:AdjustAlignMent e hmode vmode)
e --- 文字实体名
hmode-水平对齐方式 0-5
vmode-竖向对齐方式0-3

st788796 · 发表于 2013-10-15 15:00:31

本帖最后由 st788796 于 2013-10-15 15:06 编辑

newer 发表于 2013-10-15 14:56
API对文字对齐方式设置是支持的

(xdrx_setpropertyvalue e)

对文字修改必须先修改对齐方式然后才可以修改对齐点，单独修改对齐点对左对齐无效

这个应用中我希望插入点已知，修改对齐方式后文字是居中的，不管文字多长，文字位置不变的话还要预先计算左边点，反而麻烦

XD::String:Len 可以用于制造 Table 时程序确定列宽

newer · 发表于 2013-10-15 15:11:32

st788796 发表于 2013-10-15 15:00
对文字修改必须先修改对齐方式然后才可以修改对齐点，单独修改对齐点对左对齐无效

这个应用中我希望插 ...

左对齐，和插入点是一个了，修改插入点就行了。

newer · 发表于 2013-10-15 15:18:04

st788796 发表于 2013-10-15 15:00
对文字修改必须先修改对齐方式然后才可以修改对齐点，单独修改对齐点对左对齐无效

这个应用中我希望插 ...

XD::String:Len 还应该再加个宽度比例参数，更通用。

jxwlkj · 发表于 2016-7-29 00:24:22

学习来的，不错。

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

[教学] 用API创建一个属性标题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

点评

点评