ziping_li 发表于 2004-6-5 13:40:00

CorelDRAW里面的矢量图怎么样才能导入到AUOTCAD里?

CorelDRAW里面的矢量图怎么样才能导入到AUOTCAD里?

yesong555 发表于 2004-6-5 14:29:00

在CorelDRAW里可以直接输出为*。dwg文件

ziping_li 发表于 2004-6-5 15:46:00

没有的

yesong555 发表于 2004-6-5 16:01:00

文件——另存为

aobo 发表于 2004-6-13 22:11:00

CorelDRAW可以直接输出为*。dwg文件,但还要进行设置，用cad打开后无法进行拉伸，查看属性显示图形为样条曲线，请教高手该如何处理。

gzy 发表于 2004-6-13 22:18:00

本帖最后由 作者 于 2004-6-13 22:47:56 编辑

将样条曲线转为多段线（程序）





aobo 发表于 2004-6-13 22:44:00

请版主具体解析一下<BR>

gzy 发表于 2004-6-14 08:50:00

注意：(setqNUMPT1000)此句可修改精度。;from 明经通道(defunC:wsa(/HOLDECHO      OS      SSSNUMPTN
          EDED1      PTST    PTENDSS2PT1      PT2
          PT3J          ENT      NNO      SSSSL
      )
    (defunVAL1(NSSINDEX)
      (cdr(assocN(entget(ssnameSSINDEX))))
    )

    (defunCH_IT(NOS)
      (if(assocNOSED)
            (progn
(if(assocNOSENT)
      (setqENT(subst(assocNOSED)(assocNOSENT)ENT))
      (setqENT(appendENT(list(assocNOSED))))
)
(entmodENT)
            )
      )
    )

    (setqHOLDECHO(getvar"cmdecho"))
    (setvar"cmdecho"0)
    (command"_.undo""group")
    (setqOS(getvar"osmode"))
    (setvar"osmode"0)
    (prompt"
Pleasepickthespline:")
    (setqSSS(ssget'((0."spline"))))
    (ifSSS
      (progn
            (initget(+124))
            (setqNUMPT1000);;精度
            (setqN0)
            (setqSSL(sslengthSSS))
            (repeatSSL
(prompt(strcat"\r"(itoa(-SSLN))"?ン          "))
(setqED1(ssnameSSSN))
(setqED(entgetED1))
(setqPTST    (cdr(assoc10ED))
            PTEND(cdr(assoc10(reverseED)))
)
(command"_.divide"ED1(*2NUMPT))
(setqSS2(ssget"p"))
(if(=(logand(cdr(assoc70ED))1)1)
      (setqJ1)
      (setqJ0)
)
(setqPT3PTST)
(setqSS(ssadd))
(repeatNUMPT
      (setqPT2(VAL110SS2J))
      (if(/=NUMPT(/(+J2)2))
          (setqPT1(VAL110SS2(+1J)))
          (setqPT1PTEND)
      )
      (command"_.arc"PT3PT2PT1)
      (ssadd(entlast)SS)
      (setqPT3PT1)
      (setqJ(+2J))
)
(command"_.pedit"(ssnameSS1)"""j"SS"""")
(setqENT(entget(entlast)))
(foreachNNO'(686248)
      (CH_ITNNO)
)
(command"_.erase"SS2ED1"")
(setqN(1+N))
            )
            (prompt(strcat"\rЧΘ??                                                            ")
            )
      )
      (alert"Nothingselected!!")
    )
    (setvar"osmode"OS)
    (command"_.undo""end")
    (setvar"cmdecho"HOLDECHO)
    (princ)
)

aobo 发表于 2004-6-17 23:09:00

多谢版主，我得好好学习

东洲 发表于 2005-10-9 14:56:00

<P>我将一位图在coreldraw里导出为DWG格式后，打开CAD怎么出现这样的情况下？</P>
页: [1] 2
查看完整版本: CorelDRAW里面的矢量图怎么样才能导入到AUOTCAD里?