自动修改图框属性块中的比例

flytoday · 发表于 2012-6-21 00:08:56

来瞧瞧哈~~~~~~~~~~~~~~~~~~~~~~~~

1993063 · 发表于 2012-6-21 00:41:08

看看先,学习下

yansu · 发表于 2012-6-21 07:00:27

学习学习

pzweng · 发表于 2012-6-21 07:36:29

多谢土豆兄

pzweng · 发表于 2012-6-21 07:37:38

(defun c:vvvv (/ ss sl i obj scl)
  (if (setq ss (ssget (list '(0 . "INSERT") (cons 2 "A3图框,A3竖框,A4竖框"))))
(progn
   (setq sl (sslength ss)
      i  -1
   )
   (repeat sl
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1+ i))))
      scl (vla-get-xscalefactor obj)
)
(foreach x (vlax-invoke obj 'getattributes)
   (if (wcmatch (vla-get-tagstring x) "比例")
      (cond
      ((= scl 1.0)
         (vla-put-textstring x "1:1")
      )
      ((> scl 1.0)
         (vla-put-textstring x (strcat "1:" (rtos scl)))
      )
      ((< scl 1.0)
         (vla-put-textstring x (strcat (rtos (/ 1 scl)) ":1"))
      )
      )
   )
)
(vla-update obj)
   )
)
  )
  (princ)
)
李老师优化

longer1000 · 发表于 2012-6-21 08:31:16

路过支持一下

长风（尚品） · 发表于 2012-6-21 08:55:51

看个贴容易吗我？

lidaxiu · 发表于 2012-7-27 13:07:08

不错，恩，值得学习

vlisp2012 · 发表于 2012-7-28 09:58:34

高手的作品，一定要学习哈！

xjfa · 发表于 2013-7-2 21:49:45

支持一下，学习了

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

自动修改图框属性块中的比例

点评