Topic: Armored Cable Linetype

[POCKETS]

Is there a linetype that would represent armored cable? The type of cable you would find on a public pay phone.
Many thanks in advance, I am,
Pockets

[CAB]

Here are a few I have that you may try.
You will need the shape files in the attaced Zip file.

Code: [Select]

*DUCT3,Flex Duct 000000000000000
A,0.0001,-0.02,[FLEX,FlexDuct.shx,s=0.02],-0.02,0.0001
*DUCT4,Flex Duct 000000000000000
A,0.0001,-0.02,[FLEX2,Flex2.shx,s=0.02],-0.02,0.0001

*twist,
A,0,-.055244,[")",STANDARD,y=-.01,s=.165722,r=270],-.113255,[")",STANDARD,y=.01,s=.165722,r=90],-.055247

*CLAM,Running Clam Shape 
A,0.0001,-0.05,[CLAM,clam.shx,x=-0.01,s=0.0254],-0.05,[CLAM,clam.shx,r=180,x=-0.01,s=0.0254],-0.05

*BATT,Batting SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,0.00010000,-0.02000000,[Batt,ltypes-cab.shx,r=0.0000,S=0.10000000,X=-0.02000000,Y=0.00000000],-0.04000000,[Batt,ltypes-cab.shx,r=180.0000,S=0.10000000,X=0.02000000,Y=0.00000000],-0.02000000

[ronjonp]

Here is one that does not require a shape file:

*ARMOR,Armored Cable
A,0,-.000403,["U",Standard,y=-.052104,s=.05],-.033333,["U",Standard,y=.047896,s=.05,r=180],-.000382

[GDF]

Very nice Ron

[ronjonp]

Very nice Ron

Thanks 

[POCKETS]

Thank you Ronjon and Cab.  Great job one and all.
Cab I do have a minor problem with 4 of the 5.  I get a bad definition of Duct 4 @ line 168, Duct 3 @ line 167, Clam @ line 174 and Batt @ line 177.

[CAB]

Looks to me like the shx files are not being found.
Place the shx files in the Font Folder & the Linetype-CAB.shx in the Support Folder.

Ron's linetype is nice because it doesn't depend on a Shape.

[POCKETS]

Cab,
One big mistake on my part.  I overlooked the shape file when I downloaded previously.  Everything works great now! Thanks again!

[CAB]

You're quite welcome.

[CAB]

Ron I tweaked your linetype.
I found the alignments slightly off when using Simplex & TXT fonts.

Code: [Select]

*CLAM,Running Clam Shape
A,0.0001,["U",Standard,y=-.05,s=.05],-.06638,["U",Standard,y=.05,s=.05,r=180],.0001

[ronjonp]

Ron I tweaked your linetype.
I found the alignments slightly off when using Simplex & TXT fonts.

Code: [Select]

*CLAM,Running Clam Shape 
A,0.0001,["U",Standard,y=-.05,s=.05],-.06638,["U",Standard,y=.05,s=.05,r=180],.0001

Good catch...modified mine too 

[CAB]

Ron,
Not sure what I was thinking, having barrowed your Armor pattern to make my Clam using the letter 'U'
to get rid of the shape file needed. Your Armor pattern is just fine for me and I like the new Clam pattern
better.

Too many sinus meds, this sinus infection is killing me. 

[ronjonp]

CAB,

This is what I came up with for the two after looking at what you had done:

Clam,Clam - nununu
A,0,-.0000001,["U",Standard,y=-.05,s=.05],-.06666,["U",Standard,y=.05,s=.05,r=180],-.0000001

Armored_Cable,Armored Cable - [][][]
A,0,-.0005,["U",Standard,y=-.05,s=.05],-.033333,["U",Standard,y=.05,s=.05,r=180],-.0005

[CAB]

Thanks Ron.
Had some time this morning to mess with these and added two more.
I am not satisfied with the Clam2 & 3 starting points but haven't found a way to adjust to my desired position.
I wanted the 'U' to start the line but it leads the line. If I adjust the offset number the 'U's separate which
can not happen.

Code: [Select]

*CLAM,Running Clam Shape - nununu
;A,0.0001,["U",Standard,y=-.05,s=.05],-.06638,["U",Standard,y=.05,s=.05,r=180],.0001
A,0,-.0000001,["U",Standard,y=-.05,s=.05],-.06666,["U",Standard,y=.05,s=.05,r=180],-.0000001

*CLAM2,Running Clam Shape - nununu
A,0.00001,-.0341269,["U",Standard,x=-.05,y=-.05,s=.05],-.000001,["U",Standard,x=.0001,y=.05,s=.05,r=180],-.0001

*CLAM3,Running Clam Shape - nununu
A,0.0001,-.05,["U",Standard,x=-.05,y=-.05,s=.05],-.000001,["U",Standard,x=.0001,y=.05,s=.05,r=180],-.0001
If anyone wants to play with the linetype definitions you can use the function below with the code in this link to
load and reload after you tweak the linetype file.
Link to Linetype Load Routine

Code: [Select]

(defun c:Ltest (/ lt-list fail-list)
  (or lt-ent (setq lt-ent (car (entsel "\nSelect obj to work with:"))))
  (setq lt-list '(("clam2"     ; linetype name  <---<<  change this
                   "CAB2.lin"  ; linetype file  <---<<  change this
                   t           ; flag to reload Linetypr
                   )))
  (if (setq fail-list (Linetype-load lt-list nil))
    (princ "\nFailed to load linetypes:")
  )
  (mapcar 'print fail-list)
  (setq el (entget lt-ent))
  (entmod (subst '(6 . "Continuous") (assoc 6 el) el))
  (entmod (subst '(6 . "CLAM2")  ;  linetype name  <---<<  change this
                 '(6 . "Continuous") el))
  (princ)
)