[推荐]：[求助] 粗糙度标注

myrooms

粗糙度标注

  

                               
登录/注册后可看大图

使用比较方便，与当前的图形配合的较好，在一幅图中只有十次的使用次数，关闭后再打开可继续使用，否则得注册，有没有高手去除这个10次限制啊。

另外请教一下，其中选择目标图形后，直接依附在目标图形上，有了合适的角度，并依据鼠标位置确定标注方向，这个功能在Vlisp中如何实现，我一直没有想明白，有劳各位指点一下迷津了。
谢谢了

lsjjm

请参考:
(defun crudity ()                       
  (setq high (* (getvar "dimscale") 0.18))
  (setq p1 (osnap p0 "near"))
  (if p1 (setq ang (angle p1 p0))(setq ang (/ pi 2) p1 p0))
  (if (or (null cvalue)(= cvalue ""))(setq cvalue "32"))
  (princ "\nInput Crudity Value <")
  (princ cvalue)
  (princ ">")
  (setq string (getstring))
  (if (or (null string)(= string ""))(setq string cvalue)(setq cvalue string))
; (mlayer "dim" "blue" "continuous")
  (vl-cmdf "pline" (polar p1 (- ang (/ pi 6))(/ high 0.3)) p1
                   (polar p1 (+ ang (/ pi 6))(/ high 0.6))
                   (Polar p1 (- ang (/ pi 6)) (/ high 0.6)) "")
  (if (and (< ang (/ (* pi 6) 7))(> ang (/ pi 6)))
    (setq d 1 p0 (polar p1 ang (/ high 0.55)))
    (setq d -1 p0 (polar p1 ang (/ high 0.35)))
  )
  (vl-cmdf "text" "j" "f" (polar p0 (+ ang (* d (/ pi 2))) high)
                          (polar p0 (- ang (* d (/ pi 2))) high) high string)
)
;

myrooms

(setq high (* (getvar "dimscale") 0.18))

字高＝尺寸比例×0.18，什么意思，我不太清楚，图纸中的尺寸单位为公制mm

(setq p1 (osnap p0 "near"))

p0未定义，运行出错，怎么定义

lsjjm

最初由 myrooms 发布
[B](setq high (* (getvar "dimscale") 0.18))
字高＝尺寸比例×0.18，什么意思，我不太清楚，图纸中的尺寸单位为公制mm(setq p1 (osnap p0 "near"))
p0未定义，运行出错，怎么定义 [/B]

不好意思, 这是我从程序库中摘出来的. P0即你的拾取点. 单位虽然是英寸, 运行应该不成问题.

myrooms

谢谢了，我再去试试。