明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1088|回复: 5

[LISP群(2)] 2013-11-12 明经 AutoLISP 编程②(177027547) 群聊记录:(cons (car '(0 "text")) (ca

 关闭 [复制链接]
发表于 2013-11-12 08:41:12 | 显示全部楼层 |阅读模式
[NJZX05]剑无锋 08:41:12
(cons (car '(0 "text")) (cadr '(0 "text")))
 楼主| 发表于 2013-11-12 09:40:04 | 显示全部楼层
[lijiao]仰天长啸 09:40:04
(setq a '(0 "text"))
(cons (car a) (cadr a))
 楼主| 发表于 2013-11-12 09:53:13 | 显示全部楼层
梅花 09:53:13
是表扬我的吗,谢谢
 楼主| 发表于 2013-11-12 10:10:17 | 显示全部楼层
梅花 10:10:17
为什么 是(0 "text")->'(0 . "TEXT")  说明一下好吗
 楼主| 发表于 2013-11-12 19:30:10 | 显示全部楼层
[snigefqb][snigefqb]晨曦 19:30:10
(entmake
  (list    '(0 . "LWPOLYLINE")
    '(102 . "{ACAD_REACTORS")
    '(102 . "}")
    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(43 . 0.3)
    '(8 . "SXSS")
    '(6 . "CONTINUOUS")
    '(100 . "AcDbPolyline")
    '(90 . 16)
    '(10 501626.0 3.23947e+006)
    '(10 501644.0 3.23967e+006)
    '(10 501673.0 3.23969e+006)
    (LIST -3 (LIST "south" (CONS 1000 "183101")) ;_ 结束LIST
          ) ;_ 结束LIST    )                ;
  )
)
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 08:30 , Processed in 0.178519 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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