关于属性

XLLI8704 · 发表于 2002-11-12 13:41:00

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

龙龙仔 · 发表于 2002-11-14 13:10:00

;;但属性文字相对距离不受比例的影向你可有想过????
(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)
)

关于属性

发表回复

精选推荐