[求助]：★★★调整AUTOCAD的线型！★★★

杜冷丁 · 发表于 2002-8-29 22:22:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这几天用CAD做些施工图，由于已经有四年没用过CAD了，手生的很。我做了一些虚线，把线型比例设置为1：750看起来比较合适。后又添加了几条轴线，但中轴线的比例要用到1：1才能看着合适，其它比例尺看起来就成了实线，而当我把轴线线型换为1：1后，而原来的虚线却变成了实线！再把中轴线的比例变为1：750则虚线合适而轴线又变成了实线。请问各位大侠应当怎样在同一张图里画出多种线型，怎样设置适合的线性比例？谢谢！！

szkevin · 发表于 2002-8-29 22:36:54

通过全局地或单个地修改每一个对象的线型比例因子，可以以不同的比例使用同一个线型。

默认情况下，AutoCAD 使用全局的和单独的线型比例 1.0。该值越小，每个绘图单位中画出的重复图案越多。例如，设置为 0.5 时，每一个图形单位在线型定义中显示重复两次的同一图案。不能显示完整线型图案的短线段显示为连续。对于太短，甚至不能显示一个虚线小段的线段，可以使用更小的线型比例。

“线型管理器”显示“全局比例因子”和“当前对象缩放比例”。“全局比例因子”的值控制LTSCALE 系统变量，该系统变量可全局地更改新建和现有对象的线型比例。
“当前对象缩放比例”的值控制CELTSCALE 系统变量，该系统变量可设定新建对象的线型比例。
将 CELTSCALE 的值乘以 LTSCALE 的值可获得已显示的线型比例。在图形中，可单独地或全局地轻易更改线型比例。

在布局中，可通过PSLTSCALE 在不同的视口中调节线型比例。

szkevin · 发表于 2002-8-29 22:41:04

更改选定对象的线型比例的步骤

1.在“标准”工具栏上单击“特性”。
2.选择一个或多个对象。
3.在“特性”窗口中选择“线型比例”框，并输入新值。

XDSoft · 发表于 2002-8-29 23:13:44

还有CHPROP命令的S选项，也可以修改一个曲线实体自身的线比放大系数（相对于全局线型比例），使得在一个全局LTSCALE下，每个曲线实体可以有自己的表现形式。

下面给你贴个下版本“晓东工具箱”里面的两个命令，可以大批修改。第二个命令XLtLocScl的优点是：可以有在当前显示状态下（可能修改过自身线比系数）的相对放大选项（便于根据显示，自己灵活调整出最佳效果）

[FONT=courier new]
;|
命令：XLtScale
功能：设置全局线型比例因子
|;
(defun c:XLtScale (/ val)
(initget 6)
(if (setq val (getreal (strcat "\n请输入全局线型比例因子<" (rtos
(getvar "ltscale")
2 2
) ">:"
)
)
)
(progn
(setq $XLtScale_val val)
(setvar "ltscale" $XLtScale_val)
)
)
(princ)
)
;|
命令：XLtLocScl
功能：设置曲线实体自身单独的线型比例放大系数
说明：可以有在当前显示状态下（可能修改过自身线比系数）的相对放大选项（便于根据显示，自己灵活调整出最佳效果）
|;
(defun c:XLtLocScl (/ ss scl tf len i tf1)
(prompt "\n选取要修改线比的曲线实体<退出>:")
(if (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
(progn
(if (not $XLtLocalScale_val)
(setq $XLtLocalScale_val 2.0)
)
(setq tf1 (xdrx_yesorno "\n是否只对改变过线比放大系数的曲线操作" 0))
(setq tf (xdrx_yesorno "\n是否按照当前显示变比" 1))
(initget 6)
(if (setq scl (getreal (strcat "\n线型比例放大系数<" (rtos $XLtLocalScale_val
2 2
) ">:"
)
)
)
(setq $XLtLocalScale_val scl)
)
(xdrx_setsstodb ss 0)
(setq i 0 len (sslength ss))
(while (xdrx_getentdata 0)
(if (= tf1 1)
(progn
(if (setq scl (xdrx_getentdxf 48))
(progn
(if (= tf 1)
(setq scl (* scl $XLtLocalScale_val))
(setq scl $XLtLocalScale_val)
)
(xdrx_modent 48 scl)
(setq i (1+ i))
)
)
)
(progn
(if (and
(setq scl (xdrx_getentdxf 48))
(= tf 1)
)
(setq scl (* scl $XLtLocalScale_val))
(setq scl $XLtLocalScale_val)
)
(xdrx_modent 48 scl)
(setq i (1+ i))
)
)
)
(prompt (strcat "\n共选取了" (itoa len) "条曲线，完成了" (itoa i) "条曲线的线性变比操作."))
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
  命令：XLtScale 
   
  功能：设置全局线型比例因子 
|; 
(defun c:XLtScale (/ val) 
  (initget 6) 
  (if (setq val (getreal (strcat "\n请输入全局线型比例因子<" (rtos 
                                                                   (getvar "ltscale") 
                                                                   2 2 
                                                             ) ">:" 
                         ) 
                ) 
      ) 
    (progn 
      (setq $XLtScale_val val) 
      (setvar "ltscale" $XLtScale_val) 
    ) 
  ) 
  (princ) 
) 
;| 
   命令：XLtLocScl 
    
   功能：设置曲线实体自身单独的线型比例放大系数 
    
   说明：可以有在当前显示状态下（可能修改过自身线比系数）的相对放大选项（便于根据显示，自己灵活调整出最佳效果） 
|; 
(defun c:XLtLocScl (/ ss scl tf len i tf1) 
  (prompt "\n选取要修改线比的曲线实体<退出>:") 
  (if (setq ss (ssget '((0 . "*line,circle,arc,ellipse")))) 
    (progn 
      (if (not $XLtLocalScale_val) 
        (setq $XLtLocalScale_val 2.0) 
      ) 
      (setq tf1 (xdrx_yesorno "\n是否只对改变过线比放大系数的曲线操作" 0)) 
      (setq tf (xdrx_yesorno "\n是否按照当前显示变比" 1)) 
      (initget 6) 
      (if (setq scl (getreal (strcat "\n线型比例放大系数<" (rtos $XLtLocalScale_val 
                                                                 2 2 
                                                           ) ">:" 
                             ) 
                    ) 
          ) 
        (setq $XLtLocalScale_val scl) 
      ) 
      (xdrx_setsstodb ss 0) 
      (setq i 0 len (sslength ss)) 
      (while (xdrx_getentdata 0) 
        (if (= tf1 1) 
          (progn 
            (if (setq scl (xdrx_getentdxf 48)) 
              (progn 
                (if (= tf 1) 
                  (setq scl (* scl $XLtLocalScale_val)) 
                  (setq scl $XLtLocalScale_val) 
                ) 
                (xdrx_modent 48 scl) 
                (setq i (1+ i)) 
              ) 
            ) 
          ) 
          (progn 
            (if (and 
                  (setq scl (xdrx_getentdxf 48)) 
                  (= tf 1) 
                ) 
              (setq scl (* scl $XLtLocalScale_val)) 
              (setq scl $XLtLocalScale_val) 
            ) 
            (xdrx_modent 48 scl) 
            (setq i (1+ i)) 
          ) 
        ) 
      ) 
      (prompt (strcat "\n共选取了" (itoa len) "条曲线，完成了" (itoa i) "条曲线的线性变比操作.")) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

szkevin · 发表于 2002-8-29 23:29:22

当加入新的线型实休,发现需要重新设定放大系数,这些经过改动过的实体,就很难再一次选中,在凭记忆和眼力,如果再有一个选定这些实体的过滤代码就好了,可以一次选定这些实体,再次改动放大系数.

XDSoft · 发表于 2002-8-29 23:48:04

最初由 szkevin 发布
[B]当加入新的线型实休,发现需要重新设定放大系数,这些经过改动过的实体,就很难再一次选中,在凭记忆和眼力,如果再有一个选定这些实体的过滤代码就好了,可以一次选定这些实体,再次改动放大系数. [/B]

好，上面的第二个程序修改了，重新下载，试试吧。

XDSoft · 发表于 2002-8-29 23:57:45

又写好一个，“线比恢复”，恢复到1

[FONT=courier new]
;|
命令：XLtLocRes
功能：线比恢复
|;
(defun c:XLtLocRes (/ ss)
(prompt "\n选取要恢复线比系数为正常的曲线实体<全选>:")
(if (not (setq ss (ssget '((0 . "*line,circle,arc,ellipse")))))
(setq ss (ssget "x" '((0 . "*line,circle,arc,ellipse"))))
)
(xdrx_begin)
(xdrx_setsstodb ss 0)
(while (xdrx_getentdata 0)
(xdrx_modent 48 1)
)
(xdrx_end)
(princ)
)
[/FONT]

XDSoft · 发表于 2002-8-30 00:33:07

又写好一个，“虚实变换”

[FONT=courier new]
;|
命令：XChDash
功能：线型虚实变换
|;
(defun c:XChDash(/ val)
(if (setq $XChDash_val (not $XChDash_val))
(setq val "CONTINUOUS" val1 "实")
(setq val "dash" val1 "虚")
)
(prompt (strcat "\n请选取要变"" val1 ""的曲线实体<退出>:"))
(if (setq ss (ssget '((0 . "*line,circle,arc,ellipse"))))
(progn
(xdrx_begin)
(xdrx_setsstodb ss 0)
(while (xdrx_getentdata 0)
(xdrx_modent 6 val)
)
(xdrx_end)
)
)
(princ)
)
[/FONT]

杜冷丁 · 发表于 2002-8-30 00:55:42

谢谢晓东老大和斑竹的热心解答，可我是一个超级大菜鸟，晓东兄写的那些代码是AUTOcad的LISP吗？可我不会用呵！szkevin兄的贵言我还是有点不是太明白，您的意思是不是说工具栏里的：线形框\其它\线型对话框\显示细节内的全局比例因子调的是全局，它下面的当前对象缩放比例为什么怎么调也不管用？用CTRL+1调出当前线条的对象特性对话框修改线型比例倒是真的管用，但一旦输入小于1的值，虽然线型比例可以变，但其显示的值却还是1，为什么？单独的线型比例还有其它办法吗?谢谢！

XDSoft · 发表于 2002-8-30 01:06:23

最初由杜冷丁发布
[B]谢谢晓东老大和斑竹的热心解答，可我是一个超级大菜鸟，晓东兄写的那些代码是AUTOcad的LISP吗？可我不会用呵！szkevin兄的贵言我还是有点不是太明白，您的意思是不是说工具栏里的：线形框\其它\线型对话框\显示细节 ... [/B]

你搜索下论坛，论坛详细说过LISP如何保存，使用，多看看论坛的帖子，有好处的。

另：那是显示的问题，LIST命令给取整了，包括字体的宽度因子，你设置小于1的，显示的是1，但实际上数据库保存的不是。

上面的程序下版晓东工具箱里面加入菜单，到时你点就可以了。

你可以先试试CHPROP命令的S选项。

caibaobao · 发表于 2002-8-30 18:29:24

一段时间没有来看了，发现晓东又有新的东西推出，很高兴看到“晓东工具箱”越来越成为一个重要的、齐全的CAD工具箱！建议晓东能做个UPDATE的程序——也许我比较傻瓜，下载一个新版本的工具箱后就卸载老的装入新的或直接安装新的覆盖老的，没有好好的看安装说明。

XDSoft · 发表于 2002-8-30 19:42:55

最初由 caibaobao 发布
[B]一段时间没有来看了，发现晓东又有新的东西推出，很高兴看到“晓东工具箱”越来越成为一个重要的、齐全的CAD工具箱！建议晓东能做个UPDATE的程序——也许我比较傻瓜，下载一个新版本的工具箱后就卸载老的装入新的或?.. [/B]

如果发现老的版本的“晓东工具箱”，安装程序会先卸载的，等卸载完成，再进行“下一步”。

谢谢，欢迎常来！工作中有什么想法，欢迎贴到“晓东工具箱”论坛，大家交流，把程序写出来。

杜冷丁 · 发表于 2002-8-30 21:25:13

晓东老大真的很感谢、也十二分的佩服您！再次对您热心细致的讲解表示衷心的谢意！

szkevin · 发表于 2002-9-1 00:47:28

最初由杜冷丁发布
[B]谢谢晓东老大和斑竹的热心解答，可我是一个超级大菜鸟，晓东兄写的那些代码是AUTOcad的LISP吗？可我不会用呵！szkevin兄的贵言我还是有点不是太明白，您的意思是不是说工具栏里的：线形框\其它\线型对话框\显示细节 ... [/B]

ltscale就是全局比例,局部比例只能用CTRL+1来改.

coojin · 发表于 2002-9-1 07:50:06

晓东真是厉害

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

[求助]：★★★调整AUTOCAD的线型！★★★

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

又写好一个，“虚实变换”