[求助]：用Autolisp作图的问题

superxzg

请问在Autolisp中如何用cad命令比如“circle”作出的图是红色的虚线，并且在层layer2。假设layer2已存在。

taner

将函数库里EACHY的制造园的函数改一下就行
[PHP](defun cir (ce r co la lt / ent)
  (if (setq ent (entmakex (list '(0 . "CIRCLE") '(100 . "AcDbEntity")
                                '(100 . "ACDbCircle") (cons 10 ce)
                                (cons 40 r) (cons 62 co) (cons 8 la)
                                (cons 6 lt)
                                '(210 0. 0. 1.)
                          )
                )
      )
    ent
  )
)[/PHP]

superxzg

这样是不是化所有的圆都是这样了？我的本意不是哦，我的本意是画某个圆时调用命令然后使它符合条件！

win-gf

你想画某个圆用cir命令 正常的圆用正常的命令