【已解决】序号递增程序

bai0371

旋转标应在箭头处

kswym88888

序号递增程序----看上去真好啊，
     想学点属性块的知识。代码我下载好了。

(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))
                (prompt "\n箭头方向:")
                (command "insert" "num_mark" stp "" "" pause)
                (setq att (entnext (entlast)))
                (entmod (subst (cons 1 (itoa no)) (assoc 1 (entget att)) (entget att)))
                (entmod (subst (cons 50 0) (assoc 50 (entget att)) (entget att)))
                (setq no (1+ no))
        )
)

做成属性块(块名称num_mark,块插入点为圆心);属性定义选择中心对齐,对齐点为圆心.
感谢王鹏_pBZlo-------感谢xudongchu抛出的议题。
能下载你做好的那个“”num_mark“”块吗？让我用用。谢谢

kswym88888

xudongchu 发表于 2019-1-17 18:53
已经 修改了 做成了一个属性块+箭头可以动态旋转

你好，我想下载可以吗？

kswym88888

xudongchu 发表于 2019-1-18 08:23
好的，动态块已上传，谢谢！

你好，动态块我要下载。

xudongchu

kswym88888 发表于 2019-2-25 15:08
你好，动态块我要下载。

附件是动态块文件，希望能对你有用。

kswym88888

我高兴的看到了xudongchu的回复。我是真心要学动态块的制作。还看到有老师帮写了插入LSP代码。感动。这是个好地方，好网站，我已经类型签到了几个月了。谢谢xudongchu老师的上传序号标注.zip---我马上要下载啦！！1

kswym88888

我已经下载好啦，看到了，是绿色的，好漂亮。我现在开始学习你的动态块啦。我想模仿你的块----自己做出来。我是刚学动态块，觉得很有趣。有前我从来不用块的。谢谢xudongchu
的热情帮助新朋友！

kswym88888

真好看，我想学做这个块!

xudongchu

kswym88888 发表于 2019-2-26 19:57
真好看，我想学做这个块!

网上有很多动态块的 教程可以看一下，类似这种很多，比如用太宽做粗糙度等。

kswym88888

我学了一天一夜了，还是不会玩。我加载(defun c:tt()
        (setq no (getint "\n起始序号:"))
        (while (setq stp (getpoint "\n指定放置点:"))
                (prompt "\n箭头方向:")
                (command "insert" "num_mark" stp "" "" pause)
                (setq att (entnext (entlast)))
                (entmod (subst (cons 1 (itoa no)) (assoc 1 (entget att)) (entget att)))
                (entmod (subst (cons 50 0) (assoc 50 (entget att)) (entget att)))
                (setq no (1+ no))
        )
)后，只有插入了一个图块就结束程序了。没有你的效果。我不知我弄错在哪。也是你的块，也是老师的代码----起始序号---指定放置点---然后出来了对话框了。请求你指导我怎么玩这个动态块好吗？谢谢。

王鹏_pBZlo

[quote]kswym88888 发表于 2019-2-27 16:16
我学了一天一夜了，还是不会玩。我加载(defun c:tt()
        (setq no (getint

这个程序用的不是动态块，是属性块
来自: 微社区

xudongchu

kswym88888 发表于 2019-2-27 16:16
我学了一天一夜了，还是不会玩。我加载(defun c:tt()
        (setq no (getint "\n起始序号:"))
        ...

不用做成动态块，做成属性块就可以了。附件上红色框内改成块名，按照图片提示将框内文字改成块名。

王鹏_pBZlo

[quote]kswym88888 发表于 2019-2-27 16:16
我学了一天一夜了，还是不会玩。我加载(defun c:tt()
        (setq no (getint

先在图内做一个属性块，块名称是"num_mark",也可以叫其它名，但要把程序中的"num_mark"改为你取的块名。该块有一个属性，位于圆心。也可以把块内的圆+箭头+位于圆心的属性定义保存成一个文件，把程序中的"num_mark"改为带路径的文件，如"c:\\test\\num_mark.dwg". 然后，加载程序，就可以了
来自: 微社区

kswym88888

王鹏_pBZlo你好，
      谢谢你的来信。我在你的这个LSP代码里已学到好多的LSP基本知识。我已经会递增数字了，以后望再向你学点有关LSP基本知识。谢谢你的帮助和热情！

kswym88888

老师好。提取组码--(entget (car (entsel)))--我会了。老师教了如何去修改并更新。我也学了。-----那62的颜色问题------因为是随层---所以在提取的大长表里找不到-----那我想要吧62的颜色-----如何添加进去呢？谢谢那位老师指定。万分感谢！
选择对象: ((-1 . <图元名: 7eab8160>) (0 . "LINE") (330 . <图元名: 7eff79e0>) (5 . "45B4")
(100 . "AcDbEntity") (67 . 1) (410 . "A4") (8 . "0") (100 . "AcDbLine") (10
132.114 126.827 0.0) (11 138.526 126.827 0.0) (210 0.0 0.0 1.0))

如何把颜色和线型(62 . 3) (6 . "ACISOTGL")---加到大表里。