本帖最后由 lee50310 于 2024-12-30 21:09 编辑
entmake填充代碼 論壇這裡有 ,請點選下面連結:
[源码] entmake填充
 - ;;创建圆
- ;;例: (make:circle "0" '(0 0 0) 30 6)
- (defun make:circle(lay ipt rad col)
- (entmake (list (cons 0 "CIRCLE") ;
- (cons 6 "BYLAYER")
- (cons 8 lay) ;圖層
- (cons 10 ipt) ;插入點
- (cons 40 rad) ;半徑
- (cons 62 col) ;顏色
- (cons 210 (list 0.0 0.0 1.0))))
- )
|