(defun c:cBrk (/ *error* vl ov p1 ent p2 aDef flag ent Objlst)
(vl-load-com)
(defun *error* (msg)
(if ov (mapcar 'setvar vl ov))
(if (not
(wcmatch
(strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(princ (strcat "\n<< Error: " msg " >>")))
(princ))
(setq vl '("CMDECHO" "OSMODE")
ov (mapcar 'getvar vl))
(or (eq 512 (logand 512 (getvar 'OSMODE)))
(setvar 'OSMODE (+ (getvar 'OSMODE) 512)))
(if (setq ss (ssget "_X" '((0 . "CIRCLE"))))
(progn
(setq Objlst (mapcar 'cadr (ssnamex ss)))
(while
(progn
(setq p1 (getpoint "\nSelect Point on Circle: "))
(cond ((vl-consp p1)
(if (not
(or (and (setq ent (car (nentselp p1)))
(or (eq "CIRCLE" (cdr (assoc 0 (entget ent))))
(setq ent nil)))
(while (and (not ent) Objlst)
(and (vlax-curve-getParamatPoint (car Objlst) p1)
(setq ent (car Objlst)))
(setq Objlst (cdr Objlst))) ent))
(princ "\n** Point does not lie on a Circle **")))
(t (princ "\n** No Point Selected**")))))
(while
(progn
(setq p2 (getpoint "\nSelect Second Point to Break: "))
(cond ((vl-consp p2)
(cond ((eq p1 p2)
(princ "\n** Points must be distinct **"))
(t (setq p2 (vlax-curve-getClosestPointto ent p2)) nil)))
(t (princ "\n** No Point Selected **")))))
(setq cen (cdr (assoc 10 (entget ent))))
(repeat 2
(setq aDef
(list
(cons 100 "AcDcEntity")
(cons 0 "ARC")))
(foreach dxf '(8 10 40 210)
(setq aDef
(cons
(assoc dxf (entget ent)) aDef)))
(setq aDef
(append
(reverse aDef)
(list
(cons 50
(if flag
(angle cen p1) (angle cen p2)))
(cons 51
(if flag
(angle cen p2) (angle cen p1))))))
(entmake aDef)
(setq flag t))
(entdel ent))
(princ "\n** No Circles Found in Drawing **"))
(mapcar 'setvar vl ov)
(princ))
我不得不说，这是一个不错的小应用程序。再次做得很好。
我可以建议你在你的节目上加标题吗
有了你的程序，我们能把它们分发给其他人吗。
因为有一些好的，我相信我的一些大学不会介意使用。
P、 更新所有管道尺寸的管道抽屉
谢谢花，
我确实在需要更多洞察力才能创建的主程序上放了标题，但通常不会放在这些小程序上
至于发行版，在标题保持不变的情况下，我仍然拥有代码的内部权利——正如版权所暗示的那样。但是我免费提供了它，所以你也可以让你的同事使用它——只要标题保持得体。
但我正在迅速改变对这种方法的看法。我不认为我将来会免费提供节目，而是收取一点费用。
李 ....................................................... 李：
你有没有想过联系像dotsoft这样的公司，看看他们是否对你的一些代码感兴趣？以这样的价格。
关于我的代码，我还没有联系过任何公司，但我认为这绝对值得一试——他们只能说“不”。。。 在你开始收费之前有一件事。
您可以添加选项以将用户选择的圆部分更改为隐藏层吗？ 我还想知道什么是最有效的销售程序。
当然，特定于行业的附加软件包非常有利可图，足以证明必要的广告、网站、商家帐户等是合理的。然而，对于规模较小的产品，在盈亏平衡点之前要收回的开销很大。
如果有一些票据交换所风格的设置，也许可以使用PayPal，这将允许以适中的价格销售例程，而不会使整个过程成为程序员的另一个昂贵爱好，那将是一件好事。
哈哈，我不知道什么时候能看到这个请求
肖恩，你一针见血。
目前，我正在收取一小笔费用，使Lisp程序的要求，并使用贝宝排序的业务方面的事情。但是，当然，这只是通过电子邮件-而不是专业网站等。
我想做我自己的网站，但是，要把它做好，我希望它会花很多时间，特别是因为我没有网站创建的经验。。。
如果我真的决定把这些例程全部放到一个网站上，我真的不确定我会卖多少钱——我想这取决于例程的功能。我见过一些例程售价在50英镑左右，但其他一些（更大的程序-但仍然是LISP）售价在750英镑左右。
我想如果我要继续这样做，我将不得不建立自己的网站，或让一个朋友为我建立一个-否则我只是迷失在论坛。。。
谢谢
李
页:
1
[2]