笨法取得天正绘图比例、墙基线显示控制

brainstorm

如题，代码如下
不知道大家都是用什么方法取得
墙基线显示对于bpoly取得封闭边界很有用途，包括天正的搜索房间命令也是先打开墙基线
另外xdrx_geom_bpoly 同cad 自身的bpoly相比，不支持自定义对象实体，而bpoly可取得自
定义对象实体围合的边界

1. ;;;---控制天正墙体基线显示--- 1 仅显示基线 2 双线显示 3 基线+双线------------------
   
2. 
   
3. (defun set_tchwallbaseline (int / state)
   
4.   (setq state '((1 2) (2 0) (3 1)))
   
5.   (while (not (eq (getbaselinestate) (cadr (assoc int state))))
   
6.     (setbaselinestate)
   
7.   )
   
8. )
   
9. 
   
10. ;;;---取得天正出图比例-------------------------------------------------------------
    
11. (defun get_tchscale (/ a)
    
12.   (vl-cmdf "tpscale")
    
13.   (setq a (xdrx_string_regexps "\\d+\\.*\\d+" (xdrx_document_getCmdLineText 0)))
    
14.   (xdrx_document_sendcmdstr "\n")  
    
15.   (atof (car a))
    
16. )
    

;;;---控制天正墙体基线显示--- 1 仅显示基线 2 双线显示 3 基线+双线------------------<br /> <br /> (defun set_tchwallbaseline (int / state)<br />   (setq state '((1 2) (2 0) (3 1)))<br />   (while (not (eq (getbaselinestate) (cadr (assoc int state))))<br />     (setbaselinestate)<br />   )<br /> )<br /> <br /> ;;;---取得天正出图比例-------------------------------------------------------------<br /> (defun get_tchscale (/ a)<br />   (vl-cmdf "tpscale")<br />   (setq a (xdrx_string_regexps "\\d+\\.*\\d+" (xdrx_document_getCmdLineText 0)))<br />   (xdrx_document_sendcmdstr "\n")  <br />   (atof (car a))<br /> )<br />

longer1000

厉害啊，学习了

sh_h

谢谢楼主分享！！！

fn2398

谢谢分享，受教了！

wyl219

请问 (getbaselinestate)、 (setbaselinestate)和tpscale这几个函数是从哪里找到的？

cqu20104225

请问有没有不用晓东函数的方法获取天正的比例啊？

alhope

还是需要额外的库，直接把墙线炸开不行吗？

网事如尘

学习了，感谢分享

Cafemeow

我用的是(getvar "hpscale")