乐筑天下

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

[编程交流] 添加ssget以选择特定B

[复制链接]

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:18:00 | 显示全部楼层
The part you didn't code for him.
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:23:34 | 显示全部楼层
 
Most likely.
 
I'm still puzzled by this..
 
回复

使用道具 举报

55

主题

293

帖子

239

银币

后起之秀

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

铜币
275
发表于 2022-7-6 10:25:48 | 显示全部楼层
Lee .
 
My poor experience with lisp forced me to copy and paste things like that sometimes .
 
And what is the logic of these Men's codes ?
 
Is it one man way or experts' way ? 
I promise you that I would get my won way when I become at least able to write small routine .
 
Michaels
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 10:28:44 | 显示全部楼层
This makes it easy to determine functions that have been developed by you in support of the main code
 
-Good Habits for Coding in Visual LISP® - Robert Bell -
回复

使用道具 举报

55

主题

293

帖子

239

银币

后起之秀

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

铜币
275
发表于 2022-7-6 10:31:08 | 显示全部楼层
 
I did not get the point well  !
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 10:36:43 | 显示全部楼层
In programming in general. its always a good practice to make names of routines as long as necessary that clearly describes everything the routine does (a description of the return value)
as for adding the prefix... i.e (defun LM:WhatMyFunctionIs )
 

These prefixes may help you when posting code on forums or discussion groups
for support. As you get ready to post your code you may notice those toolbox functions due to


their prefix and include those external functions. This makes it easier to get support.
 
now as for this..
 
 
Beacuse those prefix are normally associated with routine names and not for variable names.
now variable naming convention is another thing..
 
simply put. its a good practice for programemrs all over the world to follow.
you dont have to do this is what i'm trying to tell you.. but then again,... see previous post
 
 
 
Hope this helps
 

 
回复

使用道具 举报

55

主题

293

帖子

239

银币

后起之秀

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

铜币
275
发表于 2022-7-6 10:37:38 | 显示全部楼层
Exactly pBe.
 
But for me as a beginner of Lisp , I am trying to get used to things that most of excellent programmers do .
 
So that's why I have been trying to use some of others' ways of handling things like that .
 
Greatly appreciated pBe.
 
Thank you .
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:41:12 | 显示全部楼层
Since you aren't willing to give it a try, or indicate which part of my explanation wasn't clear, here is an example for you to copy/paste into your code whilst still not understanding its inner workings:
 
  1. [color=RED]([/color][color=BLUE]defun[/color] [color=black]c:test[/color] [color=RED]([/color] [color=BLUE]/[/color] acdoc acblk acsel name done [color=RED])[/color] [color=RED]([/color][color=BLUE]vl-load-com[/color][color=RED])[/color] [color=#990099];;---------------------------------------------;;[/color] [color=#990099];; Example © Lee Mac 2011  -  www.lee-mac.com  ;;[/color] [color=#990099];;---------------------------------------------;;[/color] [color=RED]([/color][color=BLUE]setq[/color] acdoc [color=RED]([/color][color=BLUE]vla-get-ActiveDocument[/color] [color=RED]([/color][color=BLUE]vlax-get-acad-object[/color][color=RED]))[/color]       acblk [color=RED]([/color][color=BLUE]vla-get-Blocks[/color] acdoc[color=RED])[/color] [color=RED])[/color]  [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]ssget[/color] [color=DARKRED]'[/color][color=RED](([/color][color=#009900]0[/color] [color=DARKRED].[/color] [color=#a52a2a]"INSERT"[/color][color=RED])))[/color]   [color=RED]([/color][color=BLUE]progn[/color]     [color=RED]([/color][color=BLUE]vlax-for[/color] block [color=RED]([/color][color=BLUE]setq[/color] acsel [color=RED]([/color][color=BLUE]vla-get-ActiveSelectionSet[/color] acdoc[color=RED]))[/color]       [color=RED]([/color][color=BLUE]if[/color]         [color=RED]([/color][color=BLUE]not[/color]           [color=RED]([/color][color=BLUE]member[/color]             [color=RED]([/color][color=BLUE]setq[/color] name               [color=RED]([/color][color=BLUE]vlax-get-property[/color] block                 [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]vlax-property-available-p[/color] block [color=DARKRED]'[/color]effectivename[color=RED])[/color]                   [color=DARKRED]'[/color]effectivename                   [color=DARKRED]'[/color]name                 [color=RED])[/color]               [color=RED])[/color]             [color=RED])[/color]             done           [color=RED])[/color]         [color=RED])[/color]         [color=RED]([/color][color=BLUE]progn[/color]           [color=RED]([/color][color=BLUE]vlax-for[/color] obj [color=RED]([/color][color=BLUE]vla-item[/color] acblk name[color=RED])[/color]             [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=#a52a2a]"AcDbCircle"[/color] [color=RED]([/color][color=BLUE]vla-get-Objectname[/color] obj[color=RED]))[/color]               [color=RED]([/color][color=BLUE]vla-put-color[/color] obj [color=BLUE]acred[/color][color=RED])[/color]             [color=RED])[/color]           [color=RED])[/color]           [color=RED]([/color][color=BLUE]setq[/color] done [color=RED]([/color][color=BLUE]cons[/color] name done[color=RED]))[/color]         [color=RED])[/color]       [color=RED])[/color]     [color=RED])[/color]     [color=RED]([/color][color=BLUE]vla-delete[/color] acsel[color=RED])[/color] [color=RED]([/color][color=BLUE]vla-regen[/color] acdoc [color=BLUE]acallviewports[/color][color=RED])[/color]   [color=RED])[/color] [color=RED])[/color] [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color][color=RED])[/color]
回复

使用道具 举报

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 10:45:34 | 显示全部楼层
......................
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-6 23:12 , Processed in 0.376970 second(s), 68 queries .

© 2020-2025 乐筑天下

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