[LISP]求助一个生成圆的程序

zhongguola

诸位大哥，我想寻求这样一个程序，就是在PLINE线的每一个拐点处生成一个圆（圆的半径可以任意设定）

谢谢各位！！！

ZZXXQQ

拐点？节点？

yshf

;试用以下程序
(defun c:cc()
    (setq cm (getvar "cmdecho") os (getvar "osmode"))
    (setvar "cmdecho" 0)
    (setq ent (entsel "\n请选择pline:"))
    (if ent
        (progn
    (setq ent (car ent)  
   nam (cdr (assoc 0 (entget ent)))
    )
    (redraw ent 3)
    (if (member nam '("LWPOLYLINE" "POLYLINE"))
        (progn
                  (setq r (getdist "\n请输入圆的半径:"))
    (redraw ent 4)
    (if (= nam "LWPOLYLINE")
        (setq ptb (vl-remove 'nil
                                  (mapcar '(lambda(x)(if (= (car x) 10)(cdr x)))
        (entget ent)
      )
                  )
        )
        (progn
    (setq ptb nil  ent (entnext ent)  pt (entget ent))
                         (while (/= (cdr (assoc 0 pt)) "SEQEND")
       (setq pt  (entget ent)
      ptb (append ptb (list (cdr (assoc 10 pt))))
      ent (entnext ent)
       )
    )
    (setq ptb (vl-remove 'nil ptb))
        )
    )
    (setvar "osmode" 0)
    (foreach pt ptb
       (command "_circle" pt r "chprop" (entlast) "" "c" "1" "")
    )
        )
        (progn (alert "你选择的不是pline(LWPOLYLINE或者POLYLINE)！")
        (redraw ent 4)
        )
    )
 )
        (alert "你没有选择任何图元！")
    )
    (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
)

phoenixdjq

小弟不明白，程序中(redraw ent 3)　是做什么用的．

请高手指点一二．谢过

 

zhongguola

谢谢了!非常实用！！！！

yshf

"(redraw ent 3)"作用是将所选中的图元高亮度显示。