潇宇 发表于 2018-3-22 16:33:03

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

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

bssurvey 发表于 2018-3-30 08:40:11

潇宇 发表于 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 发表于 2018-3-22 17:18:54

本帖最后由 bssurvey 于 2018-3-30 08:39 编辑

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

ljfdjjj 发表于 2018-3-30 12:10:06

本帖最后由 ljfdjjj 于 2018-3-30 12:11 编辑

(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)
)

潇宇 发表于 2018-3-25 13:56:31

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

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

Andyhon 发表于 2018-3-30 09:53:04

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

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

liunian0524 发表于 2018-3-30 13:45:10

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

潇宇 发表于 2018-6-7 10:14:48

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

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

潇宇 发表于 2018-6-7 10:15:08

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

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


谢谢您的提示

潇宇 发表于 2018-6-7 10:15:27

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

谢谢 也是一个思路
页: [1] 2
查看完整版本: CAD画圆 能不能先生成再指定基点