JP6325 发表于 2013-12-21 15:06:21

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

本帖最后由 JP6325 于 2013-12-21 18:34 编辑

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

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

flyfox1047 发表于 2013-12-21 15:48:06

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

JP6325 发表于 2013-12-21 16:05:06

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

flyfox1047 发表于 2013-12-21 20:48:49

本帖最后由 flyfox1047 于 2013-12-21 20:49 编辑

JP6325 发表于 2013-12-21 16:05 static/image/common/back.gif
這程序是用於某些圖形被做局部放大,又可標註回 1:1 下使用
一般刷标注，仅仅刷标注样式，如果是想用于局部放大，也不是这样个用法，应该是修改标注比例
;;修改标注比例因子
(DEFUN C:tt ()
(SETVAR "CMDECHO" 0)
;(PRINC "\nSelect Dimension(s) :")
(PRINC "\n修改标注比例因子 :")
(IF (SETQ SS (SSGET '((0 . "DIMENSION"))))
(PROGN(SETQ N (GETDIST "\n请输入标注对象的 [放大倍数] :")
OLDFAC (GETVAR "DIMLFAC"))
   (SETVAR "DIMLFAC" (/ 1 N))
   (COMMAND "DIMSTYLE" "_APPLY" SS "")
   (SETVAR "DIMLFAC" OLDFAC)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

菜卷鱼 发表于 2013-12-23 09:02:04

(defun c:tt ()
(SETQ SS (SSGET '((0 . "DIMENSION"))))
(setq num (getreal "\n输入比例因子:"))
(setvar "cmdecho" 0)
(command "_.dimoverride"   "dimlfac" num ""ss "")
(setvar "cmdecho" 1)
(prin1))
页: [1]
查看完整版本: 線性,角度,直徑,半徑尺寸變更