乐筑天下

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

[编程交流] 初级问题

[复制链接]
alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:31:21 | 显示全部楼层
两个示例（完全未经测试）：
 
  1. (defun c:one (/ ss)
  2.  (if (setq ss (ssget "_P" '((0 . "LWPOLYLINE"))))
  3.    (DimPL (ssname ss 0))
  4.  )
  5.  (princ)
  6. )
  9. (defun c:all (/ ss)
  10.  (if (setq ss (ssget "_P" '((0 . "LWPOLYLINE"))))
  11.    ((lambda (i)
  12.       (while (setq e (ssname ss (setq i (1+ i))))
  13.         (DimPL e)
  14.       )
  15.     )
  16.      -1
  17.    )
  18.  )
  19.  (princ)
  20. )
回复

使用道具 举报

Lt Dan's l

62

主题

466

帖子

404

银币

后起之秀

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

铜币
310
发表于 2022-7-6 11:35:51 | 显示全部楼层
效果很好！谢谢
回复

使用道具 举报

Lt Dan's l

62

主题

466

帖子

404

银币

后起之秀

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

铜币
310
发表于 2022-7-6 11:40:11 | 显示全部楼层
1.当我使用VL时，如何显示块？我希望它在命令提示选择插入点时显示块。
 
2.attedit命令在lisp中运行时，将显示在命令提示符上。我该如何改变？
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

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

铜币
438
发表于 2022-7-6 11:40:31 | 显示全部楼层
[列表=1]
  • 您必须使用GrRead进行模拟，还必须模拟OSnaps“date=”或使用命令。
    [*']（初始直径）
    [/列表]
    • 回复

    使用道具 举报

    Lt Dan's l

    62

    主题

    466

    帖子

    404

    银币

    后起之秀

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

    铜币
    310
    发表于 2022-7-6 11:45:05 | 显示全部楼层
     
    谢谢你，先生
    回复

    使用道具 举报

    alanjt

    54

    主题

    3755

    帖子

    3583

    银币

    后起之秀

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

    铜币
    438
    发表于 2022-7-6 11:47:10 | 显示全部楼层
     
    祝你好运
    回复

    使用道具 举报

    Lee Mac

    114

    主题

    1万

    帖子

    1万

    银币

    中流砥柱

    Rank: 25

    铜币
    543
    发表于 2022-7-6 11:52:44 | 显示全部楼层
     
    也许acet ss拖动
    回复

    使用道具 举报

    alanjt

    54

    主题

    3755

    帖子

    3583

    银币

    后起之秀

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

    铜币
    438
    发表于 2022-7-6 11:55:57 | 显示全部楼层
    ....或者那样。
    回复

    使用道具 举报

    Lt Dan's l

    62

    主题

    466

    帖子

    404

    银币

    后起之秀

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

    铜币
    310
    发表于 2022-7-6 11:57:52 | 显示全部楼层
    我找到了一个你创建的grread示例。它帮助了我。你是如何垂直于numinc程序的？我搜索了acer ss drag move，但在该程序的任何地方都找不到它。
    回复

    使用道具 举报

    Lee Mac

    114

    主题

    1万

    帖子

    1万

    银币

    中流砥柱

    Rank: 25

    铜币
    543
    发表于 2022-7-6 11:59:21 | 显示全部楼层
     
    垂直的
    回复

    使用道具 举报

    12
    返回列表 发帖

    发表回复

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

    本版积分规则

    精选推荐

    • 微信公众平台

    • 扫描访问手机版

    • 点击图片下载手机App

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

    GMT+8, 2025-3-6 11:30 , Processed in 0.333603 second(s), 70 queries .

    © 2020-2025 乐筑天下

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