[已解答] 图框手动自动比例插入

wuwubaibai

小弟我在网络上找了自动插入图框
但插入的图框比例因为不是整数
所以想加一条可手动切换比例
但改了许久还是无法成功~烦请各位大大帮忙
"原码为pf工具箱"的经过修改如下
也想让标注形式跟着比例一起变化~原本型式是 STANDARD-2 因不会把比例带入后面只好把  STANDARD- 拿掉,不知是否可以把STANDARD-(输入的倍数)
麻烦各位大大帮帮忙感恩
(defun c:frr()
  (setq mylayer (getvar "clayer"))
  (setq layname1 (substr mylayer 1 2))
  (setq layname2 (strcat layname1 "0"))
  (if(setq ed1 (tblsearch "LAYER" layname2))
    (progn
      (setq ed2 (cdr (assoc 70 ed1)))
      (cond
        ((= ed2 0)  (command "layer" "on" layname2 ""))
        ((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))
        ((= ed2 4)  (command "layer" "u" layname2 "on" layname2 ""))
        ((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))
      )
   )   
   (setq layname2 "0")
  )
  (command "layer" "s" layname2 "")
  (PRINC "\n】--自动横向图框 ")(PRINC)
  (setq pt1 (getpoint "请选择图形左上角:\n"))
  (setq pt2 (getcorner pt1 "请选择图形右下角:\n"))
  (setq disx (abs (- (car pt1) (car pt2))))
  (setq disy (abs (- (cadr pt1) (cadr pt2))))
  (setq acx  (/ disx 297.00))
  (setq acy  (/ disy 165.00))
  (if (> acy acx)
      (setq acx acy)
  )
   (setq acx (*  (fix (+ (*  acx 10) 0.9999)) 0.1))
;;;;;;;;;;;;;;;;;;;;以下是我自加
(princ "\n")
(setq   tishi (strcat "请输入缩放比例,使用推荐比例请直接输入空格<" (rtos acx 2 1) ">:"))
(setq scaleget (getreal   tishi))
(if (= scaleget nil)
     (progn
           (setq sc acx)
     )
     (progn
           (setq sc  scaleget)
     )
)
;;;;;;;;;;;;;;;;;;;;以上是我自加
  (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)
                  (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "attreq" 0) ;关闭属性对话框
  (command "-insert"  "图框外" pt0 "x" acx "" "" "" "" "" "" "" "" "" "" ""
          acc  "" "" ""  "" )
(command "explode" "l") ;炸开插入的图块
;;;;;;;;;;;;;;;;;;;;以下是我自加
(setq sa (rtos acx 2 0))
  (setvar (command "-dimstyle" "r" sa ""))
  (setq sb (0.3* acx 2 0))
  (setvar (command "-dimscale"  sb ""))
;;;;;;;;;;;;;;;;;;;;以上是我自加
(setvar "attreq" 1) ;打开属性对话框
  (setvar "osmode" os)

start4444

代码好乱，也没有你的图框，大概改了下

(defun c:tt5(/ acx acy disx disy dsty ed1 ed2 layname1 layname2 mylayer os pt0 pt1 pt2 sc scaleget tishi)
  (setq mylayer (getvar "clayer"))
  (setq layname1 (substr mylayer 1 2))
  (setq layname2 (strcat layname1 "0"))
  (if(setq ed1 (tblsearch "LAYER" layname2))
    (progn
      (setq ed2 (cdr (assoc 70 ed1)))
      (cond
        ((= ed2 0)  (command "layer" "on" layname2 ""))
        ((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))
        ((= ed2 4)  (command "layer" "u" layname2 "on" layname2 ""))
        ((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))
      )
                )
                (setq layname2 "0")
  )
  (command "layer" "s" layname2 "")
  (PRINC "\n】--自动横向图框 ")(PRINC)
  (setq pt1 (getpoint "请选择图形左上角:\n"))
  (setq pt2 (getcorner pt1 "请选择图形右下角:\n"))
  (setq disx (abs (- (car pt1) (car pt2))))
  (setq disy (abs (- (cadr pt1) (cadr pt2))))
  (setq acx  (/ disx 297.00))
  (setq acy  (/ disy 165.00))
  (if (> acy acx)
                (setq acx acy)
  )
        (setq acx (*  (fix (+ (*  acx 10) 0.9999)) 0.1))
        (princ "\n")
        (setq   tishi (strcat "请输入缩放比例,使用推荐比例请直接输入空格<" (rtos acx 2 1) ">:"))
        (setq scaleget (getreal   tishi))
        (if (= scaleget nil)
                (progn
                        (setq sc acx)
                )
                (progn
                        (setq sc  scaleget)
                )
        )
  (setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) sc)) 2.00)
                                                        (/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) sc)) 2.00)))
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setvar "attreq" 0) ;关闭属性对话框
  (command "-insert"  "图框外" pt0 "x" sc "" "" "")
        (command "explode" "l") ;炸开插入的图块
        (if (tblsearch "DIMSTYLE" (setq dsty (strcat "STANDARD-" (rtos sc 2 0))))
                (command "dimstyle"   "r" dsty ) (command "dimscale"  sc "dimstyle" "s" dsty) )
        (setvar "attreq" 1) ;打开属性对话框
  (setvar "osmode" os)
        (princ)
)

sunny_8848

start4444 发表于 2020-12-23 14:15
默认比例应该就是自动计算的，没仔细看，你可以问下楼主

程序只自动计算了水平方向的比例，能帮忙加下也自动计算高度方向的比例吗程序里面有数据297和165，是用来计算横向和纵向比例的？程序只算了横向的缩放比例。既然插入的是块，也可以输入纵向放大比例的，这样插入的图框协调些。自己不会改才发信息的

paulpipi

帮顶，好想法

999999

帮顶，，想法真好，您看一下，这个贴子能不能帮上您，这个是固定的矩形框输入比例放大，您看一下您能否借鉴改一下
http://bbs.mjtd.com/thread-182146-1-1.html

wuwubaibai

start4444 发表于 2020-12-22 13:43
代码好乱，也没有你的图框，大概改了下

(defun c:tt5(/ acx acy disx disy dsty ed1 ed2 layname1 layna ...

谢谢大大~完美解决问题~非常感谢~感謝再感謝

wuwubaibai

999999 发表于 2020-12-22 10:21
帮顶，，想法真好，您看一下，这个贴子能不能帮上您，这个是固定的矩形框输入比例放大，您看一下您能否借鉴 ...

谢谢大大的回复~start4444大大完美了解决了问题~

sunny_8848

start4444 发表于 2020-12-22 13:43
代码好乱，也没有你的图框，大概改了下

(defun c:tt5(/ acx acy disx disy dsty ed1 ed2 layname1 layna ...

要是能根据点选的矩形范围长宽分别计算放大比例就更好了

start4444

sunny_8848 发表于 2020-12-23 09:22
要是能根据点选的矩形范围长宽分别计算放大比例就更好了

默认比例应该就是自动计算的，没仔细看，你可以问下楼主

czb203

帮顶，好想法