[求助]：在标注前加上直径符号的lisp代码

黄河之水

我是新手,看到各位都会用编写小程序,本人实在敬佩,我想求肋一个程序,就是选择标注数字,能在标注前加上半径或直径的符号.
十分感谢!

黄河之水

用一楼的程序如果标注修改过,则可用.
用二楼的程序如果标注未修改则可用
用五楼的,本来是加载不了,但是在(SETQ RR (STRCAT PRE (IF (= RR "") "<>" RR))的后面再加个闭括号就OK了,

zxq0220

2. 
   
3. (DEFUN C:PHI (/ PRE SS I ENT RR)
   
4. (SETQ PRE (IF (= (STRCASE (GETSTRING "\n加直径符号吗？<Y>") nil) "N") "R" "%%C"))
   
5. (PRINC "\n选择尺寸 : ")
   
6. (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
   
7.   (SETQ I 0)
   
8.   (REPEAT (SSLENGTH SS)
   
9.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
   
10.    (SETQ RR (STRCAT PRE (CDR (ASSOC 1 ENT))))
    
11.    (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
    
12.    (ENTMOD ENT)
    
13.   )
    
14. ))
    
15. (PRINC)
    
16. )
    

<br /> (DEFUN C:PHI (/ PRE SS I ENT RR)<br /> (SETQ PRE (IF (= (STRCASE (GETSTRING "\n加直径符号吗？<Y>") nil) "N") "R" "%%C"))<br /> (PRINC "\n选择尺寸 : ")<br /> (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN<br />   (SETQ I 0)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))<br />    (SETQ RR (STRCAT PRE (CDR (ASSOC 1 ENT))))<br />    (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))<br />    (ENTMOD ENT)<br />   )<br /> ))<br /> (PRINC)<br /> )<br />

kohi

(vl-cmdf "_.dimoverride" "dimpost" (strcat "%%C" "<>") "")

黄河之水

谢谢以上两位朋友的帮忙.








***************************我是1楼主.我用二楼的程序试了一下,发现改了以后连数字一起都变成了一个符号.如果这个标注改过用此程序就正常,我还想请高手指点.

zxq0220

再试试下面的程序。

2. 
   
3. (DEFUN C:PHI (/ PRE SS I ENT RR)
   
4. (SETQ PRE (IF (= (STRCASE (GETSTRING "\n加直径符号吗？<Y>") nil) "N") "R" "%%C"))
   
5. (PRINC "\n选择尺寸 : ")
   
6. (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN
   
7.   (SETQ I 0)
   
8.   (REPEAT (SSLENGTH SS)
   
9.    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))
   
10.    (SETQ RR (CDR (ASSOC 1 ENT)))
    
11.    (SETQ RR (STRCAT PRE (IF (= RR "") "<>" RR))
    
12.    (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))
    
13.    (ENTMOD ENT)
    
14.   )
    
15. ))
    
16. (PRINC)
    
17. )
    

<br /> (DEFUN C:PHI (/ PRE SS I ENT RR)<br /> (SETQ PRE (IF (= (STRCASE (GETSTRING "\n加直径符号吗？<Y>") nil) "N") "R" "%%C"))<br /> (PRINC "\n选择尺寸 : ")<br /> (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) (PROGN<br />   (SETQ I 0)<br />   (REPEAT (SSLENGTH SS)<br />    (SETQ ENT (ENTGET (SSNAME SS I)) I (1+ I))<br />    (SETQ RR (CDR (ASSOC 1 ENT)))<br />    (SETQ RR (STRCAT PRE (IF (= RR "") "<>" RR))<br />    (SETQ ENT (SUBST (CONS 1 RR) (ASSOC 1 ENT) ENT))<br />    (ENTMOD ENT)<br />   )<br /> ))<br /> (PRINC)<br /> )<br />