[求助]：双线线形的问题

gp341

在CAD中如果线形是双线 那么在拐弯的地方老是接不上头，这是个老问题了 Microstation中就没有这个问题
  请问大家遇到这种情况是如何解决的 看来只好用程序解决了
最后不一定要线形。请大家看看有什么办法

daziran

通常会用形来实现双线，我想gp341也是如此。但形在线型中是整体显示的，也不会“拐弯”。所以我以为用形实现的双线无法解决这个问题。除非想别的方法。

    单纯针对上例而言，用多线勉强能画出来。但不能说解决了gp341提出的问题。

daziran

gp341 这个题挺有意思。看看我的程序做法勉强说的过去吗？

1. 在ltypeshp.shx 定义两个型，分别用于画竖线和双线
*137,5,SHUXIAN
002,014,001,02C,0

*138,9,SHUANXIAN
002,014,001,040,002,02C,001,048,0

2. 线型文件中定义两个线型
;以下为画竖线，注意ltypeshp.shx中增加了SHUXIAN
*SHUXIAN,shuxian |   |   |   |
A,0,-2,[SHUXIAN,ltypeshp.shx,s=0.6],0

;以下为画双线，注意ltypeshp.shx中增加了SHUANXIAN和SHUXIAN
*DOUBLE,double ==|====|====|==
A,0,[SHUANXIAN,ltypeshp.shx,s=0.5],-2,[SHUXIAN,ltypeshp.shx,s=0.6],0,[SHUANXIAN,lt
ypeshp.shx,s=0.5],-2

3. 定义一个画线函数c:double
其基本的思路是：先用双线线型(PLINE)画线，用双线的目的是为了直观；然后将其改为CONTINUOUS，绘两个OFFSET线，再将原来的线改为单纯竖线线型。
绘图过程图形为：

daziran

绘图结果为：

daziran

[code]
(print "画双线命令：DOUBLE")
(DEFUN C:DOUBLE ( / dist s pt)
  (setq dist 1)              ;设定双线的宽度
  (setq oldltype (getvar "CELTYPE"))
  (setq oldosnap (getvar "OSMODE"))
  (setq oldpine  (getvar "PLINEGEN"))
   
  (setvar "CELTYPE"  "double")
  (setvar "PLINEGEN"  1)
  (command "_pline"  (while (= 1 (getvar "CMDACTIVE") ) (command PAUSE)))

  (setq ent  (entlast))                ;找到刚才画的这个线
  (setq pt   (getvar "lastpoint"))                     ;最后点
  (setq ang  (* (/ pi 180)  (getvar "lastangle")))     ;最后线段的角度(弧度)
  (setvar "OSMODE" 0)
  (command "chprop" ent "" "lt" "continuous" "")
  (command "_offset" (/ dist 2.0)
                     ent
                     (polar   pt  (+ ang 1.7 0.2) dist)
                     ent
                     (polar  pt (+ ang 1.7 pi) dist)
                     ""
  )
  (command "chprop" ent "" "lt" "shuxian" "")          
  (setvar "OSMODE" oldosnap)
  (setvar "CELTYPE" oldltype)
  (setvar "PLINEGEN"  oldpine)
)

hgqhq

错误: AutoCAD 变量设置被拒绝: "CELTYPE" "double"

daziran

在运行这个函数前，需要先加载 DOUBLE  和SHUXIAN 两个线型。