[求助]请教高手,如何修改块内线条比例?

userzhl

[求助]请教高手,如何修改块内线条比例?

caoyin

[Post=5]

2. ;;修改块内对象的线型比例---090427
3. (defun c:tt (/ OBJ BLK BLKS)
4. (setq OBJ  (entsel "\n选择快: ")
5.       OBJ  (vlax-ename->vla-object (car OBJ))
6.       BLK  (vla-get-name OBJ)
7.       BLKS (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
8.       LTS  (getreal "\n指定线型比例因子: ")
9. )
10. (vlax-for X (vla-item BLKS BLK)
11.   (vla-put-LinetypeScale X LTS)
12. )
13. (vla-Update OBJ)
14. )

;;修改块内对象的线型比例---090427 (defun c:tt (/ OBJ BLK BLKS) (setq OBJ  (entsel "\n选择快: ")       OBJ  (vlax-ename->vla-object (car OBJ))       BLK  (vla-get-name OBJ)       BLKS (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))       LTS  (getreal "\n指定线型比例因子: ") ) (vlax-for X (vla-item BLKS BLK)   (vla-put-LinetypeScale X LTS) ) (vla-Update OBJ) )

[/Post]

userzhl

caoyin版主再请教一下,如何获得块内线条的长度呢?

caoyin

(defun c:ttt ()
  (setq e (nentsel "\n选择块中的直线: ")
        e (vlax-ename->vla-object (car e))
  )
  (vla-get-Length e);;只对直线、多段线有效，其他曲线改用vlax-curve系列函数

)

myqzq

程序大强了！很好用！谢谢！