仿别人的一个程序----源码！---更新第二个程序，在18楼

pslstar · 发表于 2012-7-30 13:50:31

谢谢楼主分享

另类思维 · 发表于 2012-7-30 17:02:15

xingyun300 发表于 2012-7-30 11:56
谢谢大家的支持,我们继续努力的！！！！！

谢谢楼主分享。我最近也在学习这个。领教了。

preone · 发表于 2012-8-1 19:44:40

学习~~

xsso · 发表于 2012-8-1 21:35:41

太牛了

终身学习

c735023723 · 发表于 2012-8-4 12:24:04

很好

pxt2001 · 发表于 2012-8-5 12:44:33

这种画矩形的方式，很新颖。

linshiyin2 · 发表于 2012-8-6 08:49:48

院长越来越有大家风范了，

xingyun300 · 发表于 2012-8-7 14:14:15

本帖最后由 xingyun300 于 2012-8-7 14:20 编辑

更新第二个我用的程序，只是和别人的思路不一样！、希望大家指点一下！！！！！互相学习一下！！！！

(defun c:nmc()
(setvar "cmdecho" 0)
(setq old_os (getvar "osmode"))
(setvar "osmode" 0)
(prompt "\n《框选欲标注圆心的圆》")
(setq ss (ssget '((0 . "CIRCLE"))))
(setq nn 0)
(repeat (sslength ss)
   (setq en (ssname ss nn))
  (setq endata (entget en))
  (progn (setq rad (cdr (assoc 40 endata)))
      (setq cenpt (cdr (assoc 10 endata)))
   (setq pt1 (polar cenpt 0 (* rad 1.8)))
   (setq pt2 (polar cenpt (/ pi 2) (* rad 1.8)))
   (command "line" pt1 (polar pt1 pi (* rad 3.6)) "")
   (command "line" pt2 (polar pt2 (* pi 1.5) (* rad 3.6)) "")
   (setq nn (1+ nn))
   )
   )
(setvar "osmode" old_os)
(setvar "cmdecho" 1)
(princ)
)

461045462 · 发表于 2012-8-7 16:11:33

谢谢楼主的分享！
谢谢院长的源码！
谢谢！

xingyun300 · 发表于 2012-8-10 09:55:46

怎么没有人指点我的第二个程序呢

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

仿别人的一个程序----源码！---更新第二个程序，在18楼

本帖子中包含更多资源