CAD画圆 能不能先生成再指定基点

潇宇

各位大师 CAD画圆能不能先指定指定直径生成后再指定基点

bssurvey

潇宇 发表于 2018-3-25 13:56
谢谢您 还不是我想要的  我想要的是 确认直径后 这个圆跟随鼠标显示出来 再点一个点生成

(defun c:ce()                                       
   (setvar "CMDECHO" 0)                             
   (setq diame(getreal "\n請輸入直徑值："))         
   (while (setq cen1(getpoint "\n請指定圓心位置："))
     (command "circle" cen1 "d" diame)              
     (setvar "CMDECHO" 1)                           
   )                                                
)

bssurvey

試試看這個
(defun c:ce()                                
   (setvar "CMDECHO" 0)                     
   (setq diame(getreal "\n請輸入直徑值："))  
   (setq cen1(getpoint "\n請指定圓心位置："))
   (command "circle" cen1 "d" diame)         
   (setvar "CMDECHO" 1)                     
)   
                                                                                       

ljfdjjj

(defun c:tt(/ bj yu xh sbd lx)
  (setq bj(/(getreal "\n请输入圆直径: ")2))
  (setq yu(entmakex(list '(0 . "circle")
       (cons 40 bj)
       (cons 10 '(0 0))))
        xh t
  )
  (while xh
    (setq sbd(grread t 9 0) lx(car sbd))
    (entmod(subst(cons 10(cadr sbd))(assoc 10(entget yu))(entget yu)))
    (cond
      ((member lx '(2 3))(setq xh nil))
                         (entmod(subst(cons 10(cadr sbd))(assoc 10(entget yu))(entget yu)))
    )
  )
  (princ)
)

潇宇

bssurvey 发表于 2018-3-22 17:18
試試看這個
(defun c:ce()                                
   (setvar "CMDECHO" 0)                   ...

谢谢您 还不是我想要的  我想要的是 确认直径后 这个圆跟随鼠标显示出来 再点一个点生成

Andyhon

...这个圆跟随鼠标显示出来...

可先在某点先绘制圆再随鼠标浮动
可用 Move / Copy...

liunian0524

系统变量 circlerad:默认圆半径值
1:画圆前先指定默认半径,
2:然后circle 命令 按空格,跳过输入半径值,连续画圆

潇宇

ljfdjjj 发表于 2018-3-30 12:10
(defun c:tt(/ bj yu xh sbd lx)
  (setq bj(/(getreal "\n请输入圆直径: ")2))
  (setq yu(entmakex(lis ...

谢谢大师 最近有点忙 才有时间

潇宇

Andyhon 发表于 2018-3-30 09:53
...这个圆跟随鼠标显示出来...

可先在某点先绘制圆再随鼠标浮动

谢谢您的提示

潇宇

liunian0524 发表于 2018-3-30 13:45
系统变量 circlerad:默认圆半径值
1:画圆前先指定默认半径,
2:然后circle 命令 按空格,跳过输入半径值, ...

谢谢 也是一个思路