我在做一个局部放大视图，我遇到的麻烦是：

dbczhaoy

在用圆圈取一个区域的时候，我想实现象CAD系统内部的画圆办法，在鼠标没有按下的时候出现圆的影子，在按下后选取一个转折点，注明是祥图XX，然后用鼠标在图纸上选取一个合适的位置把用圆圈取的部分按我输入的比例进行缩放。
   问题是怎么出现圆的影子，让用户更加直观的把自己要圈的东西全部圈到！
   不知道我说明白没有！请各位帮忙！

lee50310

在滑鼠游標處產生一個圓 ,可隨滑鼠移動
      有 2 個例子可參考:  tt1.lsp   執行指令tt   圓隨滑鼠移動
                                   tt2.lsp   執行指令tt2  圓隨滑鼠移動  移動滑鼠圓在螢幕下方區 :變藍色  往上方區移動 圓:變黃色
                           

alin

I used "GrRead" can basically do what you want.
the bb.lsp attached is part of my program Bubble.lsp, which can do similar task.

dbczhaoy

[此贴子已经被作者于2002-10-16 11:57:31编辑过]

hothua

(defun c:test(/ pt)
  (setq pt (getpoint "点位"))
  (command "circle" pt 10 "")
  (command "change" "l" "" "")
  (prompt "范围:")
  (command pause)
)

dbczhaoy

alin

dbczhaoy

alin

(defun C:DT(/ en ed)
  (princ "\nSelect region to detail...\n")
  (command "circle" pause pause)
  (setq en (entlast)
        ed (entget en))
  (princ "\nCenter : ")(princ (cdr (assoc 10 ed)))
  (princ "\nRadius : ")(princ (cdr (assoc 40 ed)))
)

Use PAUSE can only apply to some basic shapes such as CIRCLE, RECTANGLE or ELLIPSE

Use GRREAD, trace the coordinates of the mouse, you can draw up more complicated shapes to define the boundary, such as filleted rectangles and slots.

sageman

似乎没什么效果！

追寻