将lts图形改为lts 1000，且保持所有线型显示情况不变

依然小小鸟

tranney 发表于 2020-3-18 19:54
;改线型比例为1000，显示效果不变 明经 2014.4.27
(defun c:Zcai_dt4(/ ltsold ss en dxf celtsold celtsn ...

希望大神能够帮忙 我困扰很久了 经常把别人的图拷过来 跟我的线型比例不一致

依然小小鸟

tranney 发表于 2020-3-18 19:54
;改线型比例为1000，显示效果不变 明经 2014.4.27
(defun c:Zcai_dt4(/ ltsold ss en dxf celtsold celtsn ...

而且不知道楼主遇到没 打印的时候 也会遇到虚线变成实线的情况 每次打印前需要 re命令 一下才行 所以想问有没有打印的时候 强制按照当前图纸的线型的插件 该虚线就虚线 该实线就实线 不用来回re命令

依然小小鸟

tranney 发表于 2014-4-27 10:39
谢谢z超版的给力帮助，哈哈，谢谢，已经达到我的要求了，谢谢哈
不过我好像把事情搞的复杂了一点
我稍微 ...

请问下 我遇到跟你一样的问题 只不过 我习惯lts设置为1 而别人的lts可能是1000  可能是50 可能是100  所以我就想能不能在代码中增加选项 （比如先弹出提示 我的图线性比例是多少 我输入1 像你就可能输入1000 ）  然后再进行 将其他人的图 插入到我的图这种操作

依然小小鸟

ZZXXQQ 发表于 2014-4-25 01:53

请问下 就想能不能在代码中增加选项 （比如先弹出提示 我的图线性比例是多少 我输入1 像你就可能输入1000 ）  然后再进行 将其他人的图 插入到我的图这种操作

tranney

应该是可以的

tranney

(defun c:tt ();/ ltsold ss en dxf celtsold celtsnew)
(setvar "CMDECHO" 0)
(setq ltsold (getvar "ltscale"));获取当前全局比例因子
; (setq ss (ssget "X" '((0 . "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE"))));选择所有的线
(while (setq ss (ssget ":s"))
  (repeat (setq n (sslength ss))
   (setq en (ssname ss (setq n (1- n))))
   (setq dxf (entget en))
   (if (assoc 48 dxf)
    (setq celtsold (cdr(assoc 48 dxf)));获取当前线段的比例因子，因为现在要将图纸的全局比例因子改成1000，所以现在线型的celtscale要变成(1000/lsold )*celtsold
    (setq celtsold 1)
   )
   (setq celtsnew (/ (* ltsold celtsold) 1))
   (if (assoc 6 dxf)
    (if (/= (cdr(assoc 6 dxf)) "Continuous")
     (command "chprop" en "" "s" celtsnew "")
    )
    (if (/= (cdr(assoc 6 (tblsearch "LAYER" (cdr(assoc 8 dxf))))) "Continuous")
     (command "chprop" en "" "s" celtsnew "")
    )
   )
  )
)
(setvar  "ltscale" 1)  
(setvar "CMDECHO" 1)
(princ (strcat "\n---已经将所选对象全部比例因子即lts从" (rtos (* ltsold celtsold) 2) "改为1"))
(princ)
)
这个程序你直接在别人的图纸里面运行，让后把运行后别人图纸内的东西拷贝到你的图纸里面，就可以了

依然小小鸟

tranney 发表于 2020-9-22 20:52
(defun c:tt ();/ ltsold ss en dxf celtsold celtsnew)
(setvar "CMDECHO" 0)
(setq ltsold (getvar "lt ...

谢谢楼主 我试试  

依然小小鸟

tranney 发表于 2020-9-22 20:52
(defun c:tt ();/ ltsold ss en dxf celtsold celtsnew)
(setvar "CMDECHO" 0)
(setq ltsold (getvar "lt ...

不太行呢  不知道怎么回事