明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1608|回复: 5

請教

[复制链接]
发表于 2002-10-30 22:31 | 显示全部楼层 |阅读模式
(defun CCO (/ SS CNT LAY)
(setq SS (ssget))
(setq CNT (sslength SS))
(princ (strcat "\n" (itoa CNT) " 找到."))               
(while (/= lay "")
(setq LAY (getstring "\n請輸入層名 / <ENTER結束命令>: "))
(if (and (/= "" LAY) (tblsearch "LAYER" LAY))
      (progn
(setq ss1 (ssget "p"))
(command "_.copy" SS1 "" "0,0" "0,0")
(command "_.change" SS1 "" "_p" "_la" LAY "")
        (prompt
          (strcat "\n" (itoa (sslength SS)) " 物件拷貝到圖層 " LAY)
        )
      )
      (if (and (/= "" LAY) (= NIL (tblsearch "LAYER" LAY)))
(alert (strcat "沒有 \"" LAY "\" 這個圖層!!!"))
      )
    )
  )
  (princ)
)
----------------------------------------------
;這個程序現在有一個缺點就是不能復制到已關閉的圖層(第一個可以,接著就不行了),還望高手多多指教
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2002-11-1 07:31 | 显示全部楼层

I Just simply load your routines in my AutoCAD, and

it works well. I can copy an object to a locked layer as many times as I want.
发表于 2002-10-31 06:46 | 显示全部楼层

It can, in AutoCAD 2002

 楼主| 发表于 2002-10-31 21:30 | 显示全部楼层

能不能說祥細點阿

 楼主| 发表于 2002-11-3 18:22 | 显示全部楼层

能不能給點程序阿

发表于 2002-11-10 21:20 | 显示全部楼层

怎么没人回答我呢??????

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 12:53 , Processed in 0.201872 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表