乐筑天下

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

各位，小弟请教AUTOLISP程序问题

[复制链接]
simon_hbedi

4

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
22
发表于 2002-7-24 22:01:00 | 显示全部楼层 |阅读模式
下面是小弟写的一段AUTOLISP程序，在里执行，总是返回NIL，小弟百思不得其解，望指教
(defun C:dd()
   (setq enta1 (entnext))
   (setq ent-list1 (entget enta1))
   (while enta1
     (if(and (= (cdr (assoc 8 ent-list1)) "zm") (= (cdr (assoc 0 ent-list1)) "LINE"))
       (progn
         (setq p1 (cdr (assoc 10 ent-list1)))
         (setq x1 (fix (car p1)))
         (setq enta2 (entnext enta1))
         (setq ent-list2 (entget enta2))
         (setq p2 (cdr (assoc 10 ent-list2)))
         (setq x2 (fix (car p2)))
         (setq d (- x2 x1))
         (setq x (/ (+ x1 x2) 2))
         (setq d (* d 5))
         (command "text" "C" (list (+ x 20) 21) 0 d)
       )     
     )
     (setq enta1 enta2)
     (setq ent-list1 ent-list2)  
  )
)
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-5-25 07:12 , Processed in 1.193007 second(s), 65 queries .

© 2020-2025 乐筑天下

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