明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 389|回复: 0

[提问] 自己编的一个比例格式刷,可以刷(块,文字,标注)的全局比例,唯独多重引线刷不了.

[复制链接]
发表于 2024-5-16 13:12 | 显示全部楼层 |阅读模式
本帖最后由 starysb 于 2024-5-17 08:50 编辑

自己编的一个比例格式刷,可以刷(块,文字,标注)的全局比例,唯独多重引线刷不了.还请哪位大神能把多重引线的加上,还请用lisp,mac本用不了vlisp等高级语言,

(defun c:MK ()  ;刷比例
  (setq c (getvar "DIMSCALE"))
  (princ "\n把块的比例改为 ")
  (princ (getvar "DIMSCALE"))
  (setq ee (ssget))
  (setq k (ssname ee 0));可以得到K
  ;;(setq ee (entsel "\n"))
  ;;(setq k(car(list (car ee))));块的名字
  ;(setq aa (entget (car ee)))
  (setq aa (entget k ))
  (setq bb (cdar(list (assoc 0 aa))))
  (setq cc (cdar(list (assoc 41 aa))))
  (setq dd (cdar(list (assoc 40 aa))))
  (setq PT (cdar(list (assoc 10 aa))))
  (IF (= bb "INSERT" )
    (progn
  (setq N (abs (/ 1 CC)))
  (command "scale" k "" pt n)
  (command "scale" k "" pt c)
  )
  )
  (IF (= bb "TEXT" )
    (progn
  (setq N (abs (/ 1 (/ dd 3))))
  (command "scale" k "" pt n)
  (command "scale" k "" pt c)
  )
  )
  (IF (= bb  "MTEXT")
    (progn
  (setq N (abs (/ 1 (/ dd 3))))
  (command "scale" k "" pt n)
  (command "scale" k "" pt c)
  )
  )
  (IF (= bb "DIMENSION")
  (command "_dimoverride" "dimscale" c "" ee "")
   )
(IF (= bb "MULTILEADER")
   ????????
??????????????
?????????

)
  (princ)
)


您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-22 20:00 , Processed in 0.137090 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表