请教一个关于天正门窗的问题

434939575

我的目的希望修改天正。门窗数据。或重生成新门窗。不用天正的门窗面板去修改数据。直接输入数据。比如：门宽820.高2050、；意思就是不用去点取天正的面板。直接输入数据方便些。网上看了好像这种不太好做。请大家帮忙看看。谢谢。

434939575

放弃，放弃。放弃！

doro

用动态块怎么样

434939575

doro 发表于 2014-7-29 09:09
用动态块怎么样

谢谢关注。我已经放弃。

brainstorm

1. (defun c:tt ( / n wid ht ss e )
   
2.   (setq n -1)
   
3.   (if (and
   
4.         (setq wid (getreal "\n输入窗宽度:")
   
5.               ht  (getreal "\n输入窗高度:")
   
6.         )
   
7.         (setq ss (ssget '((0 . "tch_opening"))))
   
8.       )
   
9.     (progn
   
10.       (repeat (sslength ss)
    
11.         (setq e (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))
    
12.         (vlax-put-property e 'width wid)
    
13.         (vlax-put-property e 'height ht)
    
14. 
    
15.       )
    
16.     )
    
17.   )                                        ;if
    
18. )

(defun c:tt ( / n wid ht ss e )<br />   (setq n -1)<br />   (if (and<br />         (setq wid (getreal "\n输入窗宽度:")<br />               ht  (getreal "\n输入窗高度:")<br />         )<br />         (setq ss (ssget '((0 . "tch_opening"))))<br />       )<br />     (progn<br />       (repeat (sslength ss)<br />         (setq e (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))<br />         (vlax-put-property e 'width wid)<br />         (vlax-put-property e 'height ht)<br /> <br />       )<br />     )<br />   )                                        ;if<br /> )

试一下这个，其实意义不啊，天正自带的门窗整理已经足够好用了

brainstorm

补一张图 供参考

434939575

谢谢关照！

434939575

brainstorm 发表于 2017-8-8 11:21
补一张图 供参考

谢谢朋友关照！
谢谢失照！
谢谢关照！

chenyizhen28

留个底

LIULISHENG

我来支持一下