![]() SysVar = Left(SysVar, Len(SysVar) - i - 1) If Mid(SysVar, Len(SysVar) - i, 1) = "." Then ![]() SysVar = ThisDrawing.GetVariable(va rName)ĮlseIf varName = "DWGNAME" Then 'REMOVE DRAWING FILE EXTENSIOIN IE '.dwg' Private Function getSysVar(varName As String) As String If UBound(parameterArray) > 0 Then ref = ref & vbNewLine Ref = ref & getSysVar(parameterArray(i )) ![]() ParameterArray() = Split(ThisDrawing.Utility. Sub toClipboard() 'short for SystemVariableToClipboard Sub VTC() 'short for SystemVariableToClipboard but control is not returned to auocad until pdf995 has done its job - ie circular dependancies ( i think)!! It is almost like autocad hasn't released the clipboard and pdf995 is waiting for access. However if i tryto plot the drawing using the -plot command, both autocad and pdf995 hangs The program sucessfully copyies the name to clipboard ( i have tested this) I have constructed a VBA program to copy the drawing name to the clipboard since the saving name in pdf995 is malformed I am using autocad 2002 and pdf995 to generate pdf files I am in need of some help very quickly to finish a job
0 Comments
Leave a Reply. |