【免费源代码】自动线型比例

romao · 发表于 2014-8-24 13:14:54

;;; ************************************ 自动线型比例 ****************************************************
;;;
;;; 此代码由 www.summerCAD.com 开发，免费提供，请保留此说明。
;;; 【QQ群】CAD插件大全群，欢迎加入。群号： 49608623
;;; http://shang.qq.com/wpa/qunwpa?i ... d630b29b3e646fa0b7d
;;;
;;; ************************************ 自动线型比例 ****************************************************
(princ "\n自动线型比例命令：AutoLS 或 SM_AutoLS")
(defun C:AutoLS() (sm_ltscale_auto))
(defun C:SM_AutoLS() (sm_ltscale_auto))
(defun sm_ltscale_auto(/ ss en el lay laytb lttb ltsc0 ltsc1 ltype ltlen vs tmp)
(Command_B)
(if(setq ss(ssget))
(WHILE(setq en(ssname ss 0))
(setq ss(ssdel en ss))
(setq el(entget en)
lay(cdr(assoc 8 el))
laytb(tblsearch "layer" lay)
)
(if(assoc 6 el)
(setq ltype(cdr(assoc 6 el))) ;取线型名称
(setq ltype(cdr(assoc 6 laytb)))
)
(setq lttb(tblsearch "ltype" ltype) ;线型表
ltlen(cdr(assoc 40 lttb)) ;线型图案总长
)
(if (= ltlen 0)(setq ltlen 1))
(setq ltsc0(getvar"ltscale")) ;全局线型比例因子
(setq vs(getvar"viewsize")) ;当前视口中视图的高度
(setq ltsc1(/ vs 10 ltsc0 ltlen))
(setq tmp(rtos ltsc1 1 4))
(setq ltsc1(strcat(substr tmp 1 3)
(substr tmp (-(strlen tmp)3)4)
)
)
(setq ltsc1 (atof ltsc1)) ;取整两位
(if (= ltsc1 0)(setq ltsc1 1))
(if(assoc 48 el) ;改实体线型比例
(setq el(subst(cons 48 ltsc1)(assoc 48 el)el))
(setq el(append el(list(cons 48 ltsc1))))
)
(entmod el)
) ;progn
);if
(Command_E)
(princ)
)
(defun Command_B()
(defun tmperr(msg)
(setq *error* nil)
(princ msg)
(command"_.undo""end")
(setvar"cmdecho"_sm_old_cmd)
(setvar"osmode"_sm_old_os)
(setvar"blipmode"_sm_old_bmd)
(setvar"highlight"1)
(setvar"elevation"_sm_old_elev)
(setvar"plinewid"_sm_old_plwid)
(setvar"pickstyle"_sm_old_picksty)
(setvar"cecolor" _sm_old_cecolor)
(setvar"expert"0)
(princ)
)
(setq *error* nil
_sm_old_cmd(getvar"cmdecho")
_sm_old_picksty(getvar"pickstyle")
_sm_old_os (getvar"osmode")
_sm_old_bmd(getvar"blipmode")
_sm_old_hlt(getvar"highlight")
_sm_old_elev(getvar"elevation")
_sm_old_plwid(getvar"plinewid")
_sm_old_ucsicon(getvar"ucsicon")
_sm_old_cecolor(getvar"cecolor")
)
(setvar"cmdecho"0)
(setvar"osmode"0)
(setvar"blipmode"0)
(setvar"thickness"0)
(setvar"elevation"0)
(setvar"plinewid"0)
(setvar"pickstyle"0)
(setvar"cecolor" "bylayer")
(command"_.undo""group")
(setq *error* tmperr)
)
;;=====================================
(defun Command_E()
(command"_.undo""end")
(setvar"cmdecho"_sm_old_cmd)
(setvar"osmode"_sm_old_os)
(setvar"blipmode"_sm_old_bmd)
(setvar"highlight"1)
(setvar"ucsicon"_sm_old_ucsicon)
(setvar"elevation"_sm_old_elev)
(setvar"plinewid"_sm_old_plwid)
(setvar"pickstyle"_sm_old_picksty)
(setvar"cecolor" _sm_old_cecolor)
(setvar"menuctl"0)
(setvar"expert"0)
(setvar"pickbox"4)
(setq *error* nil)
(princ)
)
(princ)

;;; ************************************ 自动线型比例 **************************************************** 
;;; 
;;; 此代码由 www.summerCAD.com 开发，免费提供，请保留此说明。 
;;; 【QQ群】CAD<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>大全群，欢迎加入。群号： 49608623 
;;;  http://shang.qq.com/wpa/qunwpa?i ... d630b29b3e646fa0b7d 
;;; 
;;; ************************************ 自动线型比例 **************************************************** 
 
(princ "\n自动线型比例命令：AutoLS 或 SM_AutoLS") 
(defun C:AutoLS() (sm_ltscale_auto)) 
(defun C:SM_AutoLS() (sm_ltscale_auto)) 
(defun sm_ltscale_auto(/ ss en el lay laytb lttb ltsc0 ltsc1 ltype ltlen vs tmp) 
  (Command_B) 
  (if(setq ss(ssget)) 
    (WHILE(setq        en(ssname ss 0)) 
      (setq ss(ssdel en ss)) 
      (setq el(entget en) 
            lay(cdr(assoc 8 el)) 
            laytb(tblsearch "layer" lay)         
      ) 
      (if(assoc 6 el) 
        (setq ltype(cdr(assoc 6 el)))                ;取线型名称 
        (setq ltype(cdr(assoc 6 laytb))) 
      ) 
      (setq lttb(tblsearch "ltype" ltype)        ;线型表 
            ltlen(cdr(assoc 40 lttb))                ;线型图案总长 
      ) 
      (if (= ltlen 0)(setq ltlen 1)) 
      (setq ltsc0(getvar"ltscale"))                ;全局线型比例因子 
      (setq vs(getvar"viewsize"))                ;当前视口中视图的高度 
      (setq ltsc1(/ vs 10 ltsc0 ltlen)) 
      (setq tmp(rtos ltsc1 1 4)) 
      (setq ltsc1(strcat(substr tmp 1 3) 
                        (substr tmp (-(strlen tmp)3)4) 
                 ) 
      ) 
      (setq ltsc1 (atof ltsc1))                 ;取整两位 
      (if (= ltsc1 0)(setq ltsc1 1)) 
 
      (if(assoc 48 el)                                ;改实体线型比例 
        (setq el(subst(cons 48 ltsc1)(assoc 48 el)el)) 
        (setq el(append el(list(cons 48 ltsc1)))) 
      ) 
      (entmod el) 
    ) ;progn 
  );if 
  (Command_E) 
    (princ) 
)    
 
 
(defun Command_B() 
  (defun tmperr(msg) 
     (setq *error* nil) 
     (princ msg) 
     (command"_.undo""end") 
     (setvar"cmdecho"_sm_old_cmd) 
     (setvar"osmode"_sm_old_os) 
     (setvar"blipmode"_sm_old_bmd) 
     (setvar"highlight"1) 
     (setvar"elevation"_sm_old_elev) 
     (setvar"plinewid"_sm_old_plwid) 
     (setvar"pickstyle"_sm_old_picksty) 
     (setvar"cecolor" _sm_old_cecolor) 
     (setvar"expert"0) 
     (princ) 
  ) 
   (setq *error* nil 
        _sm_old_cmd(getvar"cmdecho") 
        _sm_old_picksty(getvar"pickstyle") 
        _sm_old_os (getvar"osmode") 
        _sm_old_bmd(getvar"blipmode") 
        _sm_old_hlt(getvar"highlight") 
        _sm_old_elev(getvar"elevation") 
        _sm_old_plwid(getvar"plinewid") 
        _sm_old_ucsicon(getvar"ucsicon") 
        _sm_old_cecolor(getvar"cecolor") 
   ) 
   (setvar"cmdecho"0) 
   (setvar"osmode"0) 
   (setvar"blipmode"0) 
   (setvar"thickness"0) 
   (setvar"elevation"0) 
   (setvar"plinewid"0) 
   (setvar"pickstyle"0) 
   (setvar"cecolor" "bylayer") 
   (command"_.undo""group") 
   (setq *error* tmperr) 
 
) 
;;===================================== 
(defun Command_E() 
   (command"_.undo""end") 
   (setvar"cmdecho"_sm_old_cmd) 
   (setvar"osmode"_sm_old_os) 
   (setvar"blipmode"_sm_old_bmd) 
   (setvar"highlight"1) 
   (setvar"ucsicon"_sm_old_ucsicon) 
   (setvar"elevation"_sm_old_elev) 
   (setvar"plinewid"_sm_old_plwid) 
   (setvar"pickstyle"_sm_old_picksty) 
   (setvar"cecolor" _sm_old_cecolor) 
   (setvar"menuctl"0) 
   (setvar"expert"0) 
   (setvar"pickbox"4) 
   (setq *error* nil) 
   (princ) 
) 
(princ)

w379106181 · 发表于 2021-7-24 08:25:51

谢谢分享，看看虚线和中心线打印出来的效果

sunny_8848 · 发表于 2020-6-9 07:50:40

谢谢分享，看看虚线和中心线打印出来的效果

ferious · 发表于 2023-4-17 21:32:57

效果如图，鼠标滚轮控制胡里花哨不实用

429014673 · 发表于 2014-8-24 18:43:51

是不是论坛上那个呀

hebebon · 发表于 2017-12-15 21:46:14

试试好不好用呢

k-wInd · 发表于 2018-9-13 11:40:25

试试好不好用呢

huxu823 · 发表于 2020-6-8 23:28:25

用着还可以

paulpipi · 发表于 2020-7-29 20:57:39

好用

paulpipi · 发表于 2020-8-30 21:32:03

趣意人生 · 发表于 2021-1-22 21:52:04

试试好不好用

guankuiwu · 发表于 2021-6-16 16:42:44

好用，可以改进一下

账号		自动登录	找回密码
密码			注册

【免费源代码】自动线型比例

点评

相关帖子

本帖子中包含更多资源