【MU】多重引线常用的数据

kucha007

关于多重引线常用的一些数据
主要来自LEEMAC在这篇帖子回帖。我也做了一点补充http://www.theswamp.org/index.php?topic=55023.0

基础函数：

1. ;返回满足Key值的表第二项
   
2. (defun K:Assoc->Cdr (Key TgtLst)
   
3.   (mapcar 'cdr (vl-remove-if-not '(lambda (XX) (= Key (car XX))) TgtLst))
   
4. )
   
5. ;解析XDATA表
   
6. (defun K:ParseXData (TgtLst / K:Rtn)
   
7.   (defun K:Rtn (/ XX)
   
8.     (setq XX (car TgtLst)
   
9.           TgtLst (cdr TgtLst)
   
10.     )
    
11.     (cond
    
12.       ((or (null XX) (= "}" (cdr XX))) nil)
    
13.       ((and (= 'STR (type (cdr XX))) (wcmatch (cdr XX) "*{"))
    
14.             (cons (cons (cdr XX) (K:Rtn)) (K:Rtn))
    
15.       )
    
16.       ((cons XX (K:Rtn)))
    
17.     )
    
18.   )
    
19.   (K:Rtn)
    
20. )
    

;返回满足Key值的表第二项<br /> (defun K:Assoc->Cdr (Key TgtLst) <br />   (mapcar 'cdr (vl-remove-if-not '(lambda (XX) (= Key (car XX))) TgtLst))<br /> )<br /> ;解析XDATA表<br /> (defun K:ParseXData (TgtLst / K:Rtn) <br />   (defun K:Rtn (/ XX) <br />     (setq XX (car TgtLst)<br />           TgtLst (cdr TgtLst)<br />     )<br />     (cond <br />       ((or (null XX) (= "}" (cdr XX))) nil)<br />       ((and (= 'STR (type (cdr XX))) (wcmatch (cdr XX) "*{"))<br />             (cons (cons (cdr XX) (K:Rtn)) (K:Rtn))<br />       )<br />       ((cons XX (K:Rtn)))<br />     )<br />   )<br />   (K:Rtn)<br /> )<br />

一些常用的数据:

1. (setq en (car (nentsel))
   
2.       obj (vlax-ename->vla-object en)
   
3. )
   
4. (setq MULTDATA (cdr (assoc  "CONTEXT_DATA{" (K:ParseXData (entget en)))))
   
5. (setq LeadDATA (cdr (assoc "LEADER{" MULTDATA)))
   
6. 
   
7. (K:GetProp obj 'DoglegLength);基线距离
   
8. (K:GetProp obj 'LandingGap);基线间隙
   
9. (K:GetProp obj 'ScaleFactor);多重引线比例
   
10. (K:GetProp obj 'TextString);文字内容
    
11. 
    
12. (cdr (assoc 40 MULTDATA));多重引线比例
    
13. (cdr (assoc 10 MULTDATA));基线距离处的坐标
    
14. (cdr (assoc 304 MULTDATA));文字内容
    
15. (cdr (assoc 10 LeadDATA));多重引线拐点
    
16. 
    
17. (setq BsePTLst (mapcar '(lambda (XX) (cdr (assoc 10 XX))) (K:Assoc->Cdr "LEADER_LINE{" LeadDATA)));所有基点的坐标
    

(setq en (car (nentsel))<br />       obj (vlax-ename->vla-object en)<br /> )<br /> (setq MULTDATA (cdr (assoc  "CONTEXT_DATA{" (K:ParseXData (entget en)))))<br /> (setq LeadDATA (cdr (assoc "LEADER{" MULTDATA)))<br /> <br /> (K:GetProp obj 'DoglegLength);基线距离<br /> (K:GetProp obj 'LandingGap);基线间隙<br /> (K:GetProp obj 'ScaleFactor);多重引线比例<br /> (K:GetProp obj 'TextString);文字内容<br /> <br /> (cdr (assoc 40 MULTDATA));多重引线比例<br /> (cdr (assoc 10 MULTDATA));基线距离处的坐标<br /> (cdr (assoc 304 MULTDATA));文字内容<br /> (cdr (assoc 10 LeadDATA));多重引线拐点<br /> <br /> (setq BsePTLst (mapcar '(lambda (XX) (cdr (assoc 10 XX))) (K:Assoc->Cdr "LEADER_LINE{" LeadDATA)));所有基点的坐标<br />

其它：
不知道怎么获取文字末端的坐标，难道真要按字符个数去算啊= =

你有种再说一遍

没有那么简单,文字渲染的坐标早就不是什么秘密了吧,字体解析时候有个table表示不定宽度.但是你可能从来没有处理过文件解析这样的事情...

guosheyang

感谢经验分享！

kucha007

你有种再说一遍 发表于 2024-4-23 21:33
没有那么简单,文字渲染的坐标早就不是什么秘密了吧,字体解析时候有个table表示不定宽度.但是你可能从来没有 ...

确实没处理过，目前只会lisp

liuhe

分解  获取文字包围盒