请大神指教,错误在哪里??????

qyming · 发表于 2015-1-2 17:17:15

(defun C:tt (/ r pt)
(setq r 1500)
(setq pt '(1,0,0))
(entmake (list '(0 . "block")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockbegin")
(cons 10 pt) ;基准点
'(2 . "no") ;块名
)
)
(entmake (list '(0 . "circle")
'(100 . "AcDbEntity")
'(100 . "AcDbCircle")
(cons 10 pt) ;中心点
(cons 40 . r) ;半径
)
)
(entmake (list '(0 . "circle")
'(100 . "AcDbEntity")
'(100 . "AcDbCircle")
(cons 10 pt) ;中心点
(cons 40 . (* 0.5 r)) ;半径
)
)
(entmake (list '(0 . "endblk")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockend")
)
)
)

(defun C:tt (/ r pt) 
  (setq r 1500) 
  (setq pt '(1,0,0)) 
   (entmake (list '(0 . "block") 
                          '(100 . "AcDbEntity") 
                          '(100 . "AcDbBlockbegin") 
                          (cons 10 pt) ;基准点 
                          '(2 . "no") ;块名 
                          ) 
                    ) 
        (entmake (list '(0 . "circle") 
                          '(100 . "AcDbEntity") 
                          '(100 . "AcDbCircle") 
                          (cons 10 pt) ;中心点 
                          (cons 40 . r) ;半径 
                          ) 
                    ) 
        (entmake (list '(0 . "circle") 
                          '(100 . "AcDbEntity") 
                          '(100 . "AcDbCircle") 
                          (cons 10 pt) ;中心点 
                          (cons 40 . (* 0.5 r)) ;半径 
                          ) 
                    )                                
        (entmake (list '(0 . "endblk") 
                          '(100 . "AcDbEntity") 
                          '(100 . "AcDbBlockend") 
                          ) 
                    )                                
  )

nzl1116 · 发表于 2015-1-2 17:40:15

(setq pt '(1,0,0))
(cons 40 . r)
这两处错误

xyp1964 · 发表于 2015-1-2 17:49:30

(defun c:tt (/ r pt)
(setq r 1500
pt '(1 0 0)
)
(command "insert" "no" "non" pt 1 1 0)
(command "circle" "non" pt r)
(command "circle" "non" pt (* 0.5 r))
(princ)
)

鱼与熊掌 · 发表于 2015-1-2 19:45:36

;鱼与熊掌插件定制 QQ:775452144
(defun C:tt (/ r pt)
(setq r 1500)
(setq pt '(1 0 0))
(entmake (list '(0 . "block")
(cons 2 "na33m3e")
'(70 . 2)
(cons 10 pt) ;基准点
)
)
(entmake (list '(0 . "circle")
(cons 10 pt) ;中心点
(cons 40 r) ;半径
)
)
(entmake (list '(0 . "circle")
(cons 10 pt) ;中心点
(cons 40 (* 0.5 r)) ;半径
)
)
(entmake (list '(0 . "endblk")
)
)
)

qyming · 发表于 2015-1-3 12:48:22

鱼与熊掌发表于 2015-1-2 19:45

谢谢老大，问题解决了

1993063 · 发表于 2015-1-4 09:12:18

本帖最后由 1993063 于 2015-1-3 15:42 编辑

qyming 发表于 2015-1-2 18:48
谢谢老大，问题解决了

就两圆还得组成块?

账号		自动登录	找回密码
密码			注册

[已解答] 请大神指教,错误在哪里??????

浏览过的版块