線性,角度,直徑,半徑尺寸變更

JP6325

線性..角度..直徑..半徑..尺寸變更,方便好用...給需要使用的人..請給小弟多些鼓勵,如有不完善的地方請給小弟批評指教!!

補充說明:此程序用於某些圖形被局部放大下..又可標註回 1:1 下尺寸使用

flyfox1047

支持源码，但从制图和设计的角度来讲，这样做不科学吧

JP6325

這程序是用於某些圖形被做局部放大,又可標註回 1:1 下使用

flyfox1047

JP6325 发表于 2013-12-21 16:05
這程序是用於某些圖形被做局部放大,又可標註回 1:1 下使用

一般刷标注，仅仅刷标注样式，如果是想用于局部放大，也不是这样个用法，应该是修改标注比例

1. ;;修改标注比例因子
   
2. (DEFUN C:tt ()
   
3.   (SETVAR "CMDECHO" 0)
   
4.   ;(PRINC "\nSelect Dimension(s) :")
   
5.   (PRINC "\n修改标注比例因子 :")
   
6.   (IF (SETQ SS (SSGET '((0 . "DIMENSION"))))
   
7.   (PROGN(SETQ N (GETDIST "\n请输入标注对象的 [放大倍数] :")
   
8.   OLDFAC (GETVAR "DIMLFAC"))
   
9.    (SETVAR "DIMLFAC" (/ 1 N))
   
10.    (COMMAND "DIMSTYLE" "_APPLY" SS "")
    
11.    (SETVAR "DIMLFAC" OLDFAC)
    
12.   ))
    
13.   (SETVAR "CMDECHO" 1)
    
14.   (PRINC)
    
15. )
    

;;修改标注比例因子<br /> (DEFUN C:tt ()<br />   (SETVAR "CMDECHO" 0)<br />   ;(PRINC "\nSelect Dimension(s) :")<br />   (PRINC "\n修改标注比例因子 :")<br />   (IF (SETQ SS (SSGET '((0 . "DIMENSION")))) <br />   (PROGN(SETQ N (GETDIST "\n请输入标注对象的 [放大倍数] :")<br />   OLDFAC (GETVAR "DIMLFAC"))<br />    (SETVAR "DIMLFAC" (/ 1 N))<br />    (COMMAND "DIMSTYLE" "_APPLY" SS "")<br />    (SETVAR "DIMLFAC" OLDFAC)<br />   ))<br />   (SETVAR "CMDECHO" 1)<br />   (PRINC)<br /> )<br />

菜卷鱼

1. (defun c:tt ()
   
2. (SETQ SS (SSGET '((0 . "DIMENSION"))))
   
3. (setq num (getreal "\n输入比例因子:"))
   
4. (setvar "cmdecho" 0)
   
5. (command "_.dimoverride"   "dimlfac" num ""  ss "")
   
6. (setvar "cmdecho" 1)
   
7. (prin1))

(defun c:tt ()<br /> (SETQ SS (SSGET '((0 . "DIMENSION"))))<br /> (setq num (getreal "\n输入比例因子:"))<br /> (setvar "cmdecho" 0)<br /> (command "_.dimoverride"   "dimlfac" num ""  ss "")<br /> (setvar "cmdecho" 1)<br /> (prin1))