线型自动比例源码，改线型源码，求合并！

hdq741116723

想画图的时候更改某线型的时候自动调整相应的线型比例（按视口或模型比例依据自动调整），现在有改线型的源码和自动线型比例源码，如何合并在一起，请教给为大神~

;改成虚线------------------------------------------------------- GX
(defun c:GX(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "lt" "HIDDEN2" "")
  (command "change" ent "" "p" "s" "1" "")
)

;线型自动比例-------------------------------------------------------
(princ "\n自动线型比例命令：AutoLS 或 SM_AutoLS")
(defun C:ZD() (sm_ltscale_auto))
(defun C:BL() (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)
)

shibingcheng

线型自动比例源码，改线型源码，求合并！

marting

合并后，你想怎么操作？

kqqt6236

不好用。   

hdq741116723

marting 发表于 2018-4-11 17:12
合并后，你想怎么操作？

改线型后，自动识别图纸比例（模型空间默认1:1，视口空间按视口比例调整）而调整自身的线型比例，保证打印图纸时能区分线型。之前公司有这个插件，是XLV的，设置了时间锁，现无法使用。他的原理：如defun c:GX  ,选择要修改线型，变成虚线，自动图层，自动颜色，自动线型比例，完成！

hdq741116723

kqqt6236 发表于 2018-4-13 09:26
不好用。

室内制图用，听方便的，该改线型，自动图层，自动颜色，自动比例，完成！

zhangfaren

楼主有没有改好啊，改好了分享一个呗！