[求助]：请问有否加粗圆和椭圆的lisp程序

duely

如题，请问各位大侠能否编一个加粗单线圆和椭圆为粗线圆和椭圆的lisp程序！

lsjjm

1. LINEWEIGHT设置线宽
2.转变多义线后设线宽

aidraft

用下面的程序可把Circle变成Polyline, 再设线宽
[php];Written By: Jason Piercey 07.31.01
;Revised: 01.16.02
(defun C:Cl2Pl (/ CirEnt    CirElst   CirCen    CirRad
    CirLay    CirLin    CirClr    CirLts
    PlineEnt
         )
  (while
    (or
      (not CirEnt)
      (not (equal (assoc 0 (entget CirEnt)) '(0 . "CIRCLE")))
      )
   
    (setq CirEnt (car (entsel "\nSelect a Circle : ")))
    )

  (setq CirElst (entget CirEnt)
        CirCen  (cdr (assoc 10 CirElst))
CirRad  (cdr (assoc 40 CirElst))
CirLay  (cdr (assoc  8 CirElst))
CirLin  (cdr (assoc  6 CirElst))
CirClr  (cdr (assoc 62 CirElst))
CirLts  (cdr (assoc 48 CirElst))
)

  (setq PlineEnt (list '(0 . "LWPOLYLINE")
         '(100 . "AcDbEntity")
         (cons 8 CirLay)
         '(100 . "AcDbPolyline")
         '(90 . 2)
         '(70 . 1)
         '(43 . 0.0)
         '(38 . 0.0)
         '(39 . 0.0)
         (cons 10 (polar CirCen (* pi) CirRad))
         '(40 . 0.0)
         '(41 . 0.0)
         '(42 . 1.0)
         (cons 10 (polar CirCen (* pi 2.0) CirRad))
         '(40 . 0.0)
         '(41 . 0.0)
         '(42 . 1.0)
         '(210 0.0 0.0 1.0)
         )
)
   
  (if CirLin (setq PlineEnt (append PlineEnt (list (cons 6  CirLin)))))
  (if CirClr (setq PlineEnt (append PlineEnt (list (cons 62 CirClr)))))
  (if CirLts (setq PlineEnt (append PlineEnt (list (cons 48 CirLts)))))
  (entmake PlineEnt)
  (entdel CirEnt)
  (princ "\nCircle has been converted to a pline")
  (princ)
  )[/php]
至于椭圆，不知你的椭圆是现成的还是准备生成的。如果还没有生成， 设变量PELLIPSE为0,生成的椭圆为二维多段线，直接改线宽就行。否则，你可以先设变量PELLIPSE为0，搜索图中的所有椭圆实体，一个个重新生成，删除旧的。

duely

谢谢2位DX,圆变粗的方法不错，可是椭圆变粗的方法就不太理想，如果有很多已经画好的椭圆，难道要一个个重画吗？

aidraft

重画没有问题，程序可以做