[日积月累]：改变线型比例

yunzhong80

;;;;;;;;;;改变线型比例;;;;;;;;;;
;;;;修改同一图层的比例;;;;;;;;;
(defun c:chs(/ ent lx xx lxs lay )
  (setvar "cmdecho" 0)
  (while (= ent nil)
    (setq ent (car (entsel"\n选择要改变线型对象：")))
    )

    (initget "A S")
    (SETQ XX (GETkword "\n请选择[改变该层(A)/该变选择(S)]<该变选择(S)> "))
           (princ)
        (if ent
            (progn
        (setq lst (entget ent))
        (setq lay (cdr(assoc 8 lst)))
        (SETQ LXS (CDR(ASSOC 48 LST)))
            
               (IF LXS (SETQ  lxs (rtos lxs)) (SETQ LXS 1) )
               (princ "\n请输入新的线型比例<" )
               (princ lxs)
               (princ ">:")
              (if (setq lx (getreal )) (       )             (setq lx (atof lxs))  )
              (if (= xx "A")           (SETQ ent (ssget "x" (list (cons 8 lay))))  )
       
        (command  "change" ent "" "p" "s" lx "")
        ))
  (setvar "cmdecho" 1)
(print)
)
;;;;;;;;;;;;;;;;;改变线型比例
(defun c:chm()
   (setvar "cmdecho" 0)
(setq ent (ssget))
(setq lx (getreal "\n请输入新的线型比例:"))
(command  "change" ent "" "p" "s" lx "")
   (setvar "cmdecho" 1)
  (print)
)
(defun c:styam()
  (setvar "cmdecho" 0)
  (command "-dimstyle" "r" "22")
  (command "-style" "standard" "romans.shx" "3" "0.6" "0" "n" "n" "n")
  (print)
  )

jance526

做LSP那就好了，直接用

寒江独钓

改变线型比例用lisp有什么好处吗？是比命令快吗？