[分享]：给大家写好个“给INSERT实体追加（不包含属性的）或者修改已有的属性定义的工

XDSoft · 发表于 2002-8-31 21:02:20

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

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

×

[FONT=courier new]
;|
命令：blk_addAttrib
功能：给INSERT实体追加或者修改已有的属性定义
|;
(defun c:blk_addAttrib (/ $do_default fitPnt basePt insPt e Tag Mat iMat
blkNa tf tf1
)
(defun $do_default ()
(setq fitPnt nil)
(if (not $blk_addAttrib_hmode)
(setq $blk_addAttrib_hmode "Left")
(if (or
(= "Fit" $blk_addAttrib_hmode)
(= "Align" $blk_addAttrib_hmode)
)
(setq $blk_addAttrib_hmode "Left")
)
)
(if (not $blk_addAttrib_vmode)
(setq $blk_addAttrib_vmode "Base")
)
(if (not $blk_addAttrib_textstyle)
(setq $blk_addAttrib_textstyle "Standard")
)
(if (not $blk_addAttrib_angle)
(setq $blk_addAttrib_angle "0")
)
(if (not $blk_addAttrib_height)
(setq $blk_addAttrib_height 500.0)
)
)
(if (and
(setq e (car (xdrx_entsel "\n请点取需要添加属性的INSERT实体<退出>:"
'((0 . "insert"))
)
)
)
(/= "" (setq Tag (getstring "\n属性标签字符串<退出>:")))
(setq basePt (getpoint "\n基点<退出>:"))
)
(progn
($do_default)
(setq insPt (xdrx_getentdxf 10)
Mat (xdrx_matrix_block2wcs e)
iMat (xdrx_matrix_inverse Mat)
blkNa (xdrx_getentdxf 2)
)
(setq tf t)
(while tf
(prompt (strcat "\r{文字样式(" $blk_addAttrib_textstyle
")/水平对齐(" $blk_addAttrib_hmode ")/垂直对齐("
$blk_addAttrib_vmode ")/字高(" (rtos $blk_addAttrib_height
2 2
) ")/角度("
$blk_addAttrib_angle ")}"
)
)
(initget "S H V G A")
(setq tf (getkword "\n修改参数:[样式-S /水平-H /垂直-V /字高-G /角度-A]<下一步>:"))
(cond
((= tf "S"))
((= tf "H")
(initget "Left Right Mid Cen Fit Align")
(if (setq tf1 (getkword (strcat "\n水平对齐方式:[左-Left /右-Right /中间-Mid /中心-Cen /调整-Fit /对齐－Align]<"
$blk_addAttrib_hmode ">:"
)
)
)
(progn
(setq $blk_addAttrib_hmode tf1)
)
)
(if (or
(= $blk_addAttrib_hmode "Align")
(= $blk_addAttrib_hmode "Fit")
)
(progn
(initget 1)
(setq fitPnt (getpoint basePt "\n请拾取对齐点:"))
(grdraw basePt fitPnt -2 1)
(setq fitPnt (xdrx_point_transForm fitPnt iMat))
)
)
)
((= tf "V")
(initget "Base Bottom Mid Top")
(if (setq tf1 (getkword (strcat "\n水平对齐方式:[基线-Left /底-Bottom /中间-Mid /顶-Top]<"
$blk_addAttrib_vmode ">:"
)
)
)
(setq $blk_addAttrib_vmode tf1)
)
)
((= tf "G")
(initget 4)
(if (setq tf1 (getdist basePt (strcat "\n文字高度<"
(rtos $blk_addAttrib_height
2 2
) ">:"
)
)
)
(setq $blk_addAttrib_height tf1)
)
)
((= tf "A")
(initget 4)
(if (setq tf1 (getangle basePt (strcat "\n文字角度<"
$blk_addAttrib_angle ">:"
)
)
)
(setq $blk_addAttrib_angle (angtos tf1))
)
)
)
)
(setq basePt (xdrx_point_transForm basePt iMat))
(xdrx_blkdef_addAttribDef blkNa Tag basePt "" ""
$blk_addAttrib_textstyle
$blk_addAttrib_height (angtof $blk_addAttrib_angle)
$blk_addAttrib_hmode (if fitPnt
fitPnt
$blk_addAttrib_vmode
)
)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   命令：blk_addAttrib 
   功能：给INSERT实体追加或者修改已有的属性定义 
|; 
(defun c:blk_addAttrib (/ $do_default fitPnt basePt insPt e Tag Mat iMat 
                          blkNa tf tf1 
                       ) 
  (defun $do_default () 
    (setq fitPnt nil) 
    (if (not $blk_addAttrib_hmode) 
      (setq $blk_addAttrib_hmode "Left") 
      (if (or 
            (= "Fit" $blk_addAttrib_hmode) 
            (= "Align" $blk_addAttrib_hmode) 
          ) 
        (setq $blk_addAttrib_hmode "Left") 
      ) 
    ) 
    (if (not $blk_addAttrib_vmode) 
      (setq $blk_addAttrib_vmode "Base") 
    ) 
    (if (not $blk_addAttrib_textstyle) 
      (setq $blk_addAttrib_textstyle "Standard") 
    ) 
    (if (not $blk_addAttrib_angle) 
      (setq $blk_addAttrib_angle "0") 
    ) 
    (if (not $blk_addAttrib_height) 
      (setq $blk_addAttrib_height 500.0) 
    ) 
  ) 
  (if (and 
        (setq e (car (xdrx_entsel "\n请点取需要添加属性的INSERT实体<退出>:" 
                                  '((0 . "insert")) 
                     ) 
                ) 
        ) 
        (/= "" (setq Tag (getstring "\n属性标签字符串<退出>:"))) 
        (setq basePt (getpoint "\n基点<退出>:")) 
      ) 
    (progn 
      ($do_default) 
      (setq insPt (xdrx_getentdxf 10) 
            Mat (xdrx_matrix_block2wcs e) 
            iMat (xdrx_matrix_inverse Mat) 
            blkNa (xdrx_getentdxf 2) 
      ) 
      (setq tf t) 
      (while tf 
        (prompt (strcat "\r{文字样式(" $blk_addAttrib_textstyle 
                        ")/水平对齐(" $blk_addAttrib_hmode ")/垂直对齐(" 
                        $blk_addAttrib_vmode ")/字高(" (rtos $blk_addAttrib_height 
                                                             2 2 
                                                       ) ")/角度(" 
                        $blk_addAttrib_angle ")}" 
                ) 
        ) 
        (initget "S H V G A") 
        (setq tf (getkword "\n修改参数:[样式-S /水平-H /垂直-V /字高-G /角度-A]<下一步>:")) 
        (cond 
          ((= tf "S")) 
          ((= tf "H") 
            (initget "Left Right Mid Cen Fit Align") 
            (if (setq tf1 (getkword (strcat "\n水平对齐方式:[左-Left /右-Right /中间-Mid /中心-Cen /调整-Fit /对齐－Align]<" 
                                            $blk_addAttrib_hmode ">:" 
                                    ) 
                          ) 
                ) 
              (progn 
                (setq $blk_addAttrib_hmode tf1) 
              ) 
            ) 
            (if (or 
                  (= $blk_addAttrib_hmode "Align") 
                  (= $blk_addAttrib_hmode "Fit") 
                ) 
              (progn 
                (initget 1) 
                (setq fitPnt (getpoint basePt "\n请拾取对齐点:")) 
                (grdraw basePt fitPnt -2 1) 
                (setq fitPnt (xdrx_point_transForm fitPnt iMat)) 
              ) 
            ) 
          ) 
          ((= tf "V") 
            (initget "Base Bottom Mid Top") 
            (if (setq tf1 (getkword (strcat "\n水平对齐方式:[基线-Left /底-Bottom /中间-Mid /顶-Top]<" 
                                            $blk_addAttrib_vmode ">:" 
                                    ) 
                          ) 
                ) 
              (setq $blk_addAttrib_vmode tf1) 
            ) 
          ) 
          ((= tf "G") 
            (initget 4) 
            (if (setq tf1 (getdist basePt (strcat "\n文字高度<" 
                                                  (rtos $blk_addAttrib_height 
                                                        2 2 
                                                  ) ">:" 
                                          ) 
                          ) 
                ) 
              (setq $blk_addAttrib_height tf1) 
            ) 
          ) 
          ((= tf "A") 
            (initget 4) 
            (if (setq tf1 (getangle basePt (strcat "\n文字角度<" 
                                                   $blk_addAttrib_angle ">:" 
                                           ) 
                          ) 
                ) 
              (setq $blk_addAttrib_angle (angtos tf1)) 
            ) 
          ) 
        ) 
      ) 
      (setq basePt (xdrx_point_transForm basePt iMat)) 
      (xdrx_blkdef_addAttribDef blkNa Tag basePt "" "" 
                                $blk_addAttrib_textstyle 
                                $blk_addAttrib_height (angtof $blk_addAttrib_angle) 
                                $blk_addAttrib_hmode (if fitPnt 
                                                       fitPnt 
                                                       $blk_addAttrib_vmode 
                                                     ) 
      ) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

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

[分享]：给大家写好个“给INSERT实体追加（不包含属性的）或者修改已有的属性定义的工

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

相关帖子