2013-06-26 QQ群：晓东家园-CAD开发(240377723) 聊天记录：签到

CCarch · 发表于 2013-6-26 11:45:26

笑对人生(1085566757)于2013-06-26 11-45-26：
签到

CCarch · 发表于 2013-6-26 11:46:18

待定(549919853)于2013-06-26 11-46-18：
签到[face22.gif]

CCarch · 发表于 2013-6-26 13:17:21

骄阳似火(46316429)于2013-06-26 13-17-21：
签到

CCarch · 发表于 2013-6-26 13:24:50

待定(549919853)于2013-06-26 13-24-50：
有招cad二次开发的没

CCarch · 发表于 2013-6-26 14:41:19

飞γ云(24495165)于2013-06-26 14-41-19：
签到

CCarch · 发表于 2013-6-26 14:41:56

待定(549919853)于2013-06-26 14-41-56：
请问如何签到？

炫翔 · 发表于 2013-6-26 14:53:34

炫翔(2363673534)于2013-06-26 14-53-34：
输入签到即可

CCarch · 发表于 2013-6-26 14:55:22

待定(549919853)于2013-06-26 14-55-22：
签到

CCarch · 发表于 2013-6-26 14:55:59

待定(549919853)于2013-06-26 14-55-59：
智能啊

CCarch · 发表于 2013-6-26 18:57:04

偷偷的想念你(544659869)于2013-06-26 18-57-04：
签到

CCarch · 发表于 2013-6-26 20:49:14

[没记性](584985732)于2013-06-26 20-49-14：
签到

CCarch · 发表于 2013-6-26 20:51:44

[没记性](584985732)于2013-06-26 20-51-44：
本人有个 LSIP程序要作修改下，拿个兄弟有空的？

CCarch · 发表于 2013-6-26 20:56:59

[没记性](584985732)于2013-06-26 20-56-59：
(defun c:yu()
(setq cm (getvar "cmdecho")
   os (getvar "osmode")
)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(command "_undo" "be")
   (if (not (tblobjname "layer" "锣刀线"));如果不存在p3层.新生成
   (entmake
   (list '(0 . "LAYER") ;_类型名称,不用改
   '(100 . "AcDbSymbolTableRecord") ;_不可少
   '(100 . "AcDbLayerTableRecord") ;_不可少
   (cons 2 "锣刀线") ;新层名
   '(70 . 0)
   (cons 62 1) ;cons 62 +颜色代码
   (cons 6 "continuous") ;线型设置
   )
   )
)
   (if (not (tblobjname "layer" "锣边圆"));如果不存在p3层.新生成
   (entmake
   (list '(0 . "LAYER") ;_类型名称,不用改
   '(100 . "AcDbSymbolTableRecord") ;_不可少
   '(100 . "AcDbLayerTableRecord") ;_不可少
   (cons 2 "锣边圆") ;新层名
   '(70 . 0)
   (cons 62 4) ;cons 62 +颜色代码
   (cons 6 "continuous") ;线型设置
   )
   )
)
        (progn
   (if (= r nil)
(setq r 3)
   )
   (princ "\n请输入锣刀半径(")
   (princ r)
   (princ ")")          ;输入偏移距离
   (setq offd (getdist))
   (if (= offd nil)
(setq offd r)
(setq r offd)
   )
)
   (progn
   (if (= d nil)
(setq d 2.2)
   )
   (princ "\n步进距离(")
   (princ d)
   (princ ")")          ;输入偏移距离
   (setq offd1 (getdist))
   (if (= offd1 nil)
(setq offd1 d)
(setq d offd1)
   )
)
(if (progn
   (princ "\n靓仔请选取一个参考圆即锣刀线的起点:")
   (setq ssa (ssget ":S" '((0 . "circle"))))
)
      (if (progn
         (princ "\n请框选锣刀走向目标圆:")
         (setq ssb (ssget '((0 . "circle"))))
      )
      (progn
            (if (ssmemb (setq ent (ssname ssa 0)) ssb)
      (ssdel ent ssb)
)
         (if ssb
      (progn
                     (setq pt0 (cdr (assoc 10 (entget ent)))
      n (sslength ssb)
      i 0
)
         (repeat n
                        (setq pt1 (cdr (assoc 10 (entget (ssname ssb i))))
   i (1+ i)
      )
                (command "layer" "s" "锣边圆" "")
     ;(setq r (getreal "\n请输入锣刀半径[默认3mm]:")
;r (/ (if r r 3)))
(progn
  (setq di (distance pt0 pt1)
      ang (angle pt0 pt1)
      n (fix (/ di d))
      pt3 pt0)
  (entmake (list '(0 . "CIRCLE") (cons 10 pt0) (cons 40 r)))
  (repeat n
(setq pt3 (polar pt3 ang d))
(entmake (list '(0 . "CIRCLE") (cons 10 pt3) (cons 40 r)))
   (command "layer" "s" "锣刀线" "")
   (command "_line" pt0 pt3 "")
(command "layer" "s" "锣边圆" "")
  )
   (entmake (list '(0 . "CIRCLE") (cons 10 pt1) (cons 40 r)))
(command "layer" "s" "锣刀线" "")
   (command "_line" pt0 pt1 "")
(command "layer" "s" "锣边圆" "")
)
)
      )
            )
      )
   )
)
(command "_undo" "e")
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ "\")
(princ)
)

luozh7682 · 发表于 2013-6-26 21:01:11

筑路人(310178970)于2013-06-26 21-01-11：
[qqimg]{80F30A29-E5AB-1C40-1F55-4458D8866019}.jpg[/qqimg]QQ目录下怎么有这么大的文件

CCarch · 发表于 2013-6-26 21:01:24

[没记性](584985732)于2013-06-26 21-01-24：
[face100.gif]

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