唉，最近苦于无图可画，也没什么问题问，

郁闷中。。。。。

楼主，请有空时帮看一看以下lsp那里出错了，多谢！！！！

defun dtr (a)
  (* pi (/ a 180.00))
)

(defun p_circle ( ang1 ang pt)
  (repeat n
    (setq new_ang (+ ang1 ang))
    (setq ang1 new_ang)
    (setq new_pt (polar pt new_ang rad))
    (setq pt_list (append pt_list (list new_pt)))
  )
)

(defun C:dtl (/ pt_list a)
  (setvar "cmdecho" 0)
  (setq ltsc (getvar "ltscale"))
  (command "ltscale" 0.05)
  (command "regen")
  (setq n 45)
  (setq pt (getpoint "\n中心点： "))
  (prompt "\n输入半径： ")
  (command "circle" pt pause)
  (setq prop1 (entget (entlast))
        rad (cdr (assoc 40 prop1))
        ang (dtr 8)
        ang1 0
        pt1 (polar pt ang1 rad))
  (setq ent1 (entlast))
  (p_circle ang1 ang pt)
  (prompt "\n偏移的第二点： ")
  (command "copy" "cp" pt1 (foreach p pt_list (command p)) "" pt pause) 
  (setq pt_list nil) 
  (setq pt (getvar "lastpoint")
        ang1 0
        ang (dtr 8)
        pt1 (polar pt ang1 rad))
  (p_circle ang1 ang pt)
  (command "move" "cp" pt1 (foreach p pt_list (command p)"") "" pt1 pt1)
  (setq rad (+ rad (* 0.05 (getvar "dimscale")))
        ang1 0
        ang (dtr 12)
        n 30
        pt1 (polar pt ang1 rad)
        pt_list nil
  )
  (p_circle ang1 ang pt)
  (command "trim" "p" "" "f" pt1 (foreach p pt_list (command p) "") "")
  (setq pt_list nil
        sf (getreal "\n输入比例因子：")
  )
  (if (or(= sf nil)(= sf ""))
      (setq sf 1)
  )
  (command "scale" "p" "" pt sf)
  (command "text" (getvar "viewctr") (* 0.18 sf) "" (strcat "Scale " (rtos sf 2 1) ":1"))
  (prompt "\n捕捉文本到点......： ")
  (command "move" (entlast) "" (getvar "viewctr") pause)
  (command "erase" ent1 "")
  (setvar "ltscale" ltsc)
  (command "regen")
  (princ)
)

(defun C:fd( / e oce lts  p  k r n n1 ep) 
  ( setq oce (getvar "osmode")
         lts (getvar "ltscale"))
  (setvar "osmode" 0)
  (command "ucs" "w")
  ( princ " \n选择所要缩放的范围:")
(setq e (car (entsel))
      pc (cdr(assoc 10 (entget e)))
      p (getpoint "\n输入插入点:")
      k (getreal "\n输入缩放比例:")
      r (cdr (assoc 40 (entget e)))
)
(command "copy" "cp")
(setq n 0)
(repeat 180
(command (polar pc (/ (* 2 n pi) 180 ) r ))
(setq n (+ 1 n))
)
(command "" "" pc p)
(setq n 0)
(setvar "PICKBOX" 5)
(setvar "ltscale" (* 0.01 lts))
(command "zoom" "c" p (* 3 r))
(command "circle" p r)
(setq ep (entlast))
(command "trim" ep "")
(repeat 180
(command "f" (polar p (/ (* 2 n pi) 180) (* r 1.01)))
(command (polar p (/ (* 2 (+ 1.5 n)  pi) 180) (* r 1.01)) )
(command (polar p (/ (* 2 n pi) 180) (* r 1.2)))
(command (polar p (/ (* 2 (+ 1.5 n)  pi) 180) (* r 1.2)) "" )
        (setq n (+ 1 n))
         )
(command "" "zoom" "p")
(command "scale" "c" (list (- (car p) r )(- (cadr p) r)) (list (+ (car p) r) (+ (cadr p) r )) "" p k)
(command "erase" ep "")
(setvar "ltscale" lts)
(command "redraw")
(setvar "osmode" oce)
(princ)
)

谢谢，我会用了！！

我在许多论坛上看到关于画任意图形中心线的插件，我想能否在此基础上同时再画出上下左右边界所围成的矩形框如图所示。另外还想求个程序，功能是对用Window或Crossing选中图形中的圆弧进行半径判定，对大于500的用N段特定颜色的直线替换。我先谢了！

(defun c:hj()
   (vl-load-com)
   (setq os (getvar "osmode"))
   (setq md "3")
   (setvar "osmode" 0)
   (setq lt (getvar "ltscale"))
   (while  (setq pt (getpoint  "\n请输入插入点<退出>："))
    (setq pt1 (getpoint pt  "\n请输入插入点<退出>："))
    (setq md1 (getstring (strcat  "\n请输入文本<" md ">:")))
    (if (/= md1 "") (setq md md1))
    (setq ptt (polar pt1  (/ pi 2) 2.5))
     (setq ptt (polar ptt  0 4.5))
     (setq pt2 (polar pt1 0 15))
     (setq pt3 (polar pt1 (- 0 (/ pi 2)) 0.6))
     (setq pt4 (polar pt2 (- 0 (/ pi 2)) 0.6))
     (setq pt5 (polar pt1 0   10))
     (setq pt6 (polar pt5 (/ pi 2) 4.5))
     (setq pt7 (polar pt5 0 4.5))
     (setq pt8 (polar pt2 (/ pi 4) 5))
     (setq pt9 (polar pt2 (- 0 (/ pi 4)) 5))
     (command "line" pt1 pt2 pt8  "")
     (command "line" pt2 pt9 "")
     (command "line" pt3 pt4 "")
     (command "line" pt5 pt6  pt7"")
     (command "qleader" pt pt1 "" )
     (command "text" "m" ptt (* 3 lt) 0 md))
     (setvar "osmode" os)
  )
这个的文本老是出现问题！这是为么？可以帮我解决吗?

估计这个贴子早就没人理了

没人理就算了，唉，我自已改出来了！

我使用的是南方电信的线路上网，访问模具论坛速度非常慢，所以上我们网站的时间少了，有问题也可以直接发Email给我，在我的签名里有。虽然我现在不是版主了，但有问题我还是会尽量帮大家的。

虽然我不是搞编程的，但还是非常感谢你的真诚。谢谢

非常感谢各位的無私奉獻！

局部放大程式功能不全面，只能選擇圓，不能選擇橢圓或長方形。局部放大實際應用橢圓的情況多些，望會lsp的行家改進。

虽然现在不是版主了，有问题照样可以问的。没时间管理论坛被开除了也是正常的，呵呵￣