关于属性

XLLI8704

带属性的块插入时可以指定比例，如何控制属性文字的大小不受比例的影响。

龙龙仔

;;但属性文字相对距离不受比例的影向<难呀!!>你可有想过????

(defun C:TEST (/ HOLDREQ HOLDECHO IN_NAME IN_PT IN_SCALE ATTS)
  (setq HOLDREQ (getvar "attreq"))
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "attreq" 0)
  (setvar "cmdecho" 0)
  (setq IN_NAME (getstring "\n输入图块名称: "))
  (setq IN_PT (getpoint "\n插入点: "))
  (setq IN_SCALE (getdist "\n图块比例: "))
  (command "_insert" IN_NAME IN_PT IN_SCALE "" "")
  (setq
    ATTS (vlax-safearray->list
           (vlax-variant-value
             (vla-getattributes (vlax-ename->vla-object (entlast)))
           )
         )
  )
  (foreach X ATTS
    (vla-put-height X (/ (vla-get-height X) IN_SCALE))
  )
  (setvar "attreq" HOLDREQ)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)