乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: Lee Mac

[编程交流] 快速断圆

[复制链接]
Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:47:48 | 显示全部楼层
或者，使用更可靠的点选择方法：
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:cBrk [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] *error* vl ov p1 ent p2 aDef flag ent Objlst[b][color=RED])[/color][/b]
  3.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  5.  [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b]msg[b][color=RED])[/color][/b]
  6.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] ov [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]setvar[/color][/b] vl ov[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  7.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
  8.          [b][color=RED]([/color][/b][b][color=BLUE]wcmatch[/color][/b]
  9.            [b][color=RED]([/color][/b][b][color=BLUE]strcase[/color][/b] msg[b][color=RED])[/color][/b] [b][color=#ff00ff]"*BREAK,*CANCEL*,*EXIT*"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  10.      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\n<< Error: "[/color][/b] msg [b][color=#ff00ff]" >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  11.    [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  13.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] vl [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#ff00ff]"OSMODE"[/color][/b][b][color=RED])[/color][/b]
  14.        ov [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]getvar[/color][/b] vl[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  15.  [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#009900]512[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]logand[/color][/b] [b][color=#009900]512[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]OSMODE[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  16.      [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=DARKRED]'[/color][/b]OSMODE [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=DARKRED]'[/color][/b]OSMODE[b][color=RED])[/color][/b] [b][color=#009900]512[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  18.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#ff00ff]"_X"[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"CIRCLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  19.    [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
  21.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Objlst [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  22.  
  23.      [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
  24.        [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
  25.          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p1 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect Point on Circle: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  26.          [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]vl-consp[/color][/b] p1[b][color=RED])[/color][/b]
  27.                 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b]
  28.                       [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]nentselp[/color][/b] p1[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  29.                                [b][color=RED]([/color][/b][b][color=BLUE]or[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#ff00ff]"CIRCLE"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]0[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  30.                                    [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  31.                         [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] ent[b][color=RED])[/color][/b] Objlst[b][color=RED])[/color][/b]
  32.                           [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlax-curve-getParamatPoint[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Objlst[b][color=RED])[/color][/b] p1[b][color=RED])[/color][/b]
  33.                                [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ent [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] Objlst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  34.                           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] Objlst [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] Objlst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  35.                   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Point does not lie on a Circle **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  36.                [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** No Point Selected  **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  38.      [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b]
  39.        [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
  40.          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=#ff00ff]"\nSelect Second Point to Break: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  41.          [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]vl-consp[/color][/b] p2[b][color=RED])[/color][/b]
  42.                 [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b] [b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] p1 p2[b][color=RED])[/color][/b]
  43.                        [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** Points must be distinct **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  44.                       [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] p2 [b][color=RED]([/color][/b][b][color=BLUE]vlax-curve-getClosestPointto[/color][/b] ent p2[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=BLUE]nil[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  45.                [b][color=RED]([/color][/b][b][color=BLUE]t[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** No Point Selected **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  47.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cen [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  48.      [b][color=RED]([/color][/b][b][color=BLUE]repeat[/color][/b] [b][color=#009900]2[/color][/b]
  49.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] aDef
  50.          [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  51.            [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#ff00ff]"AcDcEntity"[/color][/b][b][color=RED])[/color][/b]
  52.            [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"ARC"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  53.        [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] dxf [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]8[/color][/b] [b][color=#009900]10[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009900]210[/color][/b][b][color=RED])[/color][/b]
  54.          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] aDef
  55.            [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b]
  56.              [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] dxf [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b] aDef[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  57.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] aDef
  58.          [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b]
  59.            [b][color=RED]([/color][/b][b][color=BLUE]reverse[/color][/b] aDef[b][color=RED])[/color][/b]
  60.              [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  61.                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b]
  62.                  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] flag
  63.                    [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] cen p1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] cen p2[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  64.                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]51[/color][/b]
  65.                  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] flag
  66.                    [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] cen p2[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]angle[/color][/b] cen p1[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  67.        [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b] aDef[b][color=RED])[/color][/b]
  68.        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] flag [b][color=BLUE]t[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  70.      [b][color=RED]([/color][/b][b][color=BLUE]entdel[/color][/b] ent[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  71.    
  72.    [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n** No Circles Found in Drawing **"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  73.      
  74.  [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]setvar[/color][/b] vl ov[b][color=RED])[/color][/b]
  75.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  76.       
  78.  
  79.                                 
回复

使用道具 举报

CADMASTER1128

8

主题

125

帖子

117

银币

初来乍到

Rank: 1

铜币
40
发表于 2022-7-6 14:49:30 | 显示全部楼层
我不得不说，这是一个不错的小应用程序。再次做得很好。
回复

使用道具 举报

flowerrobot

41

主题

301

帖子

265

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
209
发表于 2022-7-6 14:52:53 | 显示全部楼层
 
我可以建议你在你的节目上加标题吗
 
有了你的程序，我们能把它们分发给其他人吗。
因为有一些好的，我相信我的一些大学不会介意使用。
 
 
P、 更新所有管道尺寸的管道抽屉
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:56:55 | 显示全部楼层
 
 
谢谢花，
 
我确实在需要更多洞察力才能创建的主程序上放了标题，但通常不会放在这些小程序上
 
至于发行版，在标题保持不变的情况下，我仍然拥有代码的内部权利——正如版权所暗示的那样。但是我免费提供了它，所以你也可以让你的同事使用它——只要标题保持得体。
 
但我正在迅速改变对这种方法的看法。我不认为我将来会免费提供节目，而是收取一点费用。
 
李
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 14:58:33 | 显示全部楼层
.......................................................
回复

使用道具 举报

ReMark

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-6 15:02:46 | 显示全部楼层
李：
 
你有没有想过联系像dotsoft这样的公司，看看他们是否对你的一些代码感兴趣？以这样的价格。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:06:02 | 显示全部楼层
 
关于我的代码，我还没有联系过任何公司，但我认为这绝对值得一试——他们只能说“不”。。。
回复

使用道具 举报

mdbdesign

22

主题

272

帖子

254

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
111
发表于 2022-7-6 15:10:54 | 显示全部楼层
在你开始收费之前有一件事。
您可以添加选项以将用户选择的圆部分更改为隐藏层吗？
回复

使用道具 举报

SEANT

10

主题

973

帖子

909

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 15:13:16 | 显示全部楼层
我还想知道什么是最有效的销售程序。
 
当然，特定于行业的附加软件包非常有利可图，足以证明必要的广告、网站、商家帐户等是合理的。然而，对于规模较小的产品，在盈亏平衡点之前要收回的开销很大。
 
如果有一些票据交换所风格的设置，也许可以使用PayPal，这将允许以适中的价格销售例程，而不会使整个过程成为程序员的另一个昂贵爱好，那将是一件好事。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:16:45 | 显示全部楼层
 
哈哈，我不知道什么时候能看到这个请求
 
 
肖恩，你一针见血。
 
目前，我正在收取一小笔费用，使Lisp程序的要求，并使用贝宝排序的业务方面的事情。但是，当然，这只是通过电子邮件-而不是专业网站等。
 
我想做我自己的网站，但是，要把它做好，我希望它会花很多时间，特别是因为我没有网站创建的经验。。。
 
如果我真的决定把这些例程全部放到一个网站上，我真的不确定我会卖多少钱——我想这取决于例程的功能。我见过一些例程售价在50英镑左右，但其他一些（更大的程序-但仍然是LISP）售价在750英镑左右。
 
我想如果我要继续这样做，我将不得不建立自己的网站，或让一个朋友为我建立一个-否则我只是迷失在论坛。。。
 
谢谢
 
李
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-5 03:17 , Processed in 0.368275 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表